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EDITORIAL 


THIS MONTH'S MAGAZINE 


This is the Christmas issue of ELBUG and the magazine is filled to overflowing 
this month with programs and articles. Indeed, we have used part of the back cover 
to fit everything in. Some of the items have a seasonal flavour, for example, a 
musical Christmas card for you to type in, plus a game we have called Santa's 
Parcels. We have also included the first part of an article showing how to write a 
game playing program using this as an example. 


There are another three games, all excellent examples of their kind, to entertain 
you over Christmas, plus the second part of our series on Electron Graphics. To 
make the maximum use of your Electron's graphics, we have included a really good 
Computer Aided Design program called ASTAAD. You can use this to produce quite 
sophisticated drawings as our illustrations show. You will find plenty more to 
interest you as you read through the magazine this month. 


SOFTWARE CLUB 


You will see in the supplement, that you receive with ELBUG, details of the 
Software Club that we operate for BEEBUG members. Each month, the best of the 
software that is reviewed in the BEEBUG magazine is offered at discount to BEEBUG 
members. We expect to offer similar discounts to ELBUG readers as soon as software 
for the Electron becomes more readily available. Program Power have just launched a 
large range of Software for the Electron, though they were unable to get any of it 
to us in time for this issue. Some of their BBC micro software is exceptionally 
good, and we hope to take a look at their Electron offerings in time for the next 
issue. 


AVAILABILITY OF THE ELECTRON 


It appears that many people are having difficulty in buying an Electron. 
W.H.Smith's, the main high street retailer, and computer shops around the country 
are selling their Electrons as fast as they arrive, though they will put your name 
on a waiting list if you ask. Acorn say that there has been difficulty in the 
supplies of some components, while demand has been higher than expected. Acorn also 
say that you can order your Electron by mail order directly from Vector Marketing, 
but according to Vector Marketing you will probably have to wait 6 weeks for your 
micro to be delivered. The address, if required, is Vector Marketing, Dennington 
Estate, Wellingborough, Northamptonshire NN8 2RL (tel. 6933-79309). 


FUTURE ISSUES 

As we like to have at least a short holiday over Christmas ourselves, the next 
issue of the magazine, which you will receive at the beginning of January will be 
the January/February issue. The next one after that will be the March issue. 

With two issues now complete, we would be pleased to receive any comments from 
you, the readers. In addition, any contributions, short or long, that you might 
like to write would also be most welcome. Let's be hearing from you. 


Mike Williams. 
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RETTERING 


by A. Weston 


Screen presentation is important if you want your programs to really look good 
and this month we present another short utility that enhances the appearance of text 
on the screen, particularly where it is used for headings and titles. 


This short program produces a 3D 
effect on lettering used for headings, 
and can considerably improve the look 
of the title page of programs in which 
it is incorporated. In this particular 
version the text is printed in white 
with a black shadow against a lue 
background but you could select 
different colour combinations by 
altering line 1028 - see User Guide 
page 107 for further details. 


To use the program for your own 
Purposes, you really only need the 
procedure PROCdouble. This is defined 
in lines 1068 onwards. To call the 
procedure you need one or more lines of 
the kind appearing on lines 8@ to 119. 
In each case three parameters follow 
the procedure call. The first, in 
quotation marks, is the text to be 
printed. The second two parameters give 
the x and y graphics coordinates of the 
printing position on the screen. A 
little experiment is needed here - but 
remember that in a graphics mode @,@ is 
the bottom left hand corner, and 
1279,1823 is the top right hand corner. 


The technique used in this program 
is to print the text in white, and then 
to overprint it in black 8 positions 
down and to the left (hence line 1070). 
Overprinting might be expected 
partially to erase the original text, 
but this is avoided by using the GCOL 
statement in line 1938 to perform 
so-called 'OR' plotting. See the User 
Guide page 153 for more information on 
this. 


Electron 


16 REM Program 3-D Heading 

28 REM Version £EG@.2 

30 REM Author G.Weston 

40 REM ELBUG December 1983 

5@ REM Program Subject to copyright 
66: 

7@ MODE 5 

89 PROCdouble("ELBUG", 450,800) 

96 PROCdouble("for the",408, 600) 
188 PROCdouble("Acorn", 450, 480) 

118 PROCdouble("Electron", 360,208) 
128 END 

130: 
@60 DEF PROCdouble(AS,X,Y) 
018 VDUS5 
1028 VDU19,0,4,8,0,0:VDU19,1,0,0,0,9 
836 GCOLI,3 
1848 MOVE X,Y 
050 PRINT AS 
868 GCOL 1,1 
1878 MOVE X-8,Y-8 
@86 PRINT AS 
896 ENDPROC & 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


MOVING GRAPHICS OBJECTS 


When moving objects around the screen with MOVE and DRAW remember that a change 
of several graphics units may be necessary before the shape actually moves one 
physical graphics dot on the screen. So step the movements by 2, 4 or 8 rather than 


assuming 1. 
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RETURN OF THE DIAMOND 


by R. McGregor 


So called ‘adventure games' have become very popular in the last few years. The 
"Return of the Diamond' is our very own adventure game now fully adapted for the 
Electron. 


An adventure (in computer terms) is move Moves the player. 
a game where you travel about in a inventory Tells the player of all 
world described to you by the computer. the items that he is 
The computer displays where you are, carrying. 
what you can see, and in which take Takes selected item. 
directions you can move. You light Lights the lamp. 
communicate with the computer through a off Turns the lamp off. 
series of English words such as_ GET, drop Drops the selected item. 
KILL, TAKE etc. Movement, in this kill Tests if the player has 
particular game can be in any one of met a gremlin or a pixie. 
four directions, and is accomplished by kill-gremlin Kills the gremlin. 
typing N, S, E or W for the four kill-pixie Kills the pixie. 
compass points. finish End of game. 


Return of the Diamond is a 


relatively small adventure game 
(essential for a game that is to be 
typed in). There are just nine 


locations that you can visit. Tt. is 
nevertheless fun to play, and may give 
you a feel for adventure games before 
purchasing a manmoth one. The object 
of the game is to search for the great 
diamond, and return it to Diamond 
Castle. Of course you will meet deadly 
enemies in your search, and you will 
need to use your wits to thwart them. 
As you play the game you will probably 
need to construct a map of the 
locations. We will publish the full map 
next month just in case you get lost. 


Happy hunting. BA 


ADVENTURE PROCEDURES 


set-up Sets up the arrays and 
initialises the variables. 

title Prints the title. 

look Prints the current 


position, with room 
description, exits and 
items. 

analyse Tests for a move, look, 
inventory, score, quit, 
or move command. 


other- This deals with the 
commands rest of the commands. 
time- Decreases score, 
passing increases moves and 
deals with the lamp. » 
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1@ REM Program Diamond 

20 REM Version E@.2 

3@ REM Author R.McGregor 

48 REM ELBUG December 1983 

5@ REM Program subject to Copyright 
66: 

7@ MODE 6:VDU19,@,4,9,06,@ 

88 PROCsetup 

98 PROCtitle 
168 PROCLook 

110 REPEAT 

12@ REPEAT 

138 INPUT"What now",cS$ 

149 IF LEN(c$)=@ THEN PRINT"Eh?" 
158 UNTIL LEN (cS) >d 

168 PRINTSTRINGS (39,"-") 

176 PROCanalise 

180 PROCtimepassing 
198 UNTIL dead OR won 
206 PROCfinish 
2198 END 
220: 
230 DEF PROCsetup 
24@ DIM place$ (9) 
258 FOR i=1 TO 9 
268 READ place$(i) 
270 NEXT i 

280 DATA in a nut,in a garden 
298 DATA in a shrubbery,on a path 
30@ DATA on a lane,in a forest 
318 DATA at a dead end,at diamond castle 
328 DATA in a dark passage 
330 DIM newpos (9,4) 

340 FOR i=1 TO 9 

358 FOR j=1 TO 4 
360 READ newpos(i,j) 


370 NEXT j 

386 NEXT i 

390 DATA G,2,6,0,6,9,5,1,0,0,6,9 

406 DATA G,5,7,0,2,6,0,4,3,9,9,5 

418 DATA 4,6,8,0,6,9,0,9,6,0,0,8 

426 DIM item$(6) ,itemname$ (6) ,itempos (6) 


430 FOR i=1 TO 6 

446 READ item$(i) ,itemname$ (i) ,itempo s(i) 
456 NEXT i 

460 DATA a lamp,LAMP,5 

470 DATA the great diamond, DIAMOND,7 

486 DATA a sharp knife,KNIFE,3 

496 DATA a hanmer,HAMMER, | 

506 DATA a mean looking gremlin,GREML 
516 DATA a nasty little pixie,PIXIE,9 
528 DIM com$ (7) 

530 FOR i=1 TO 7 

54@ READ com$(i) 

558 NEXT 

560 DATA GET, TAKE,ON, LIGHT,OFF,DROP, KILL 
576 DIM direct$ (4) 

580 FOR i=1 TO 4 

590 READ direct$(i) 

666 NEXT 


618 DATA North,East,South,West 

620 DIM bright$(2) 

638 bright$(@)="( It's off )" 

646 bright$(1)="( It's shining dimly)" 

658 bright$(2)="( It's shining bright 
ly 1 

668 on=FALSE 

676 reallit=2.9 

680 lit=2 

698 position=1 

706 dead=FALSE 

718 won=FALSE 

728 moves=0 

738 score=38 

748 carried=6 

758 ENDPROC 

766: 

776 DEF PROCtitle 


780 PRINT: PRINT 
790 PRINT SPC7; SAGE Rae 


ke 

800 PRINT SECS zs MARKER KARARERRERERRERE 
Rk REEN 

810 PRINT SPC3;"**** 
jamond ***#" 


826 PRINT SPC3;"**** 
or wR 


830 PRINT SBC5; RRR RI RRA RK 
RRR KEKE 

84g PRINT SPECT 7 NRRRRARRAERRERRRRERERE 
wae 

85@ ENDPROC 

868: 

870 DEF PROC1look 

880 IF (position=6 OR position=9) AND 

(NOT on OR (itempos(1)<>position AND 
itempos(1)<>@)) THEN PRINT"It is pitch 
dark .": ENDPROC 

890 PRINT 

900 PRINT"You are ";place$ (position) 

910 PRINT 

920 PRINT"Exits :" 

930 FOR i=1 TO 4 

949 IF newpos(position,i)>@ THEN PRIN 
T direct$(i);"s"; 

950 NEXT i 

968 PRINT 

970 PRINT 

980 PRINT"You can see :" 

996 printed=FALSE 

1066 FOR i=1 TO 6 

1816 IF itempos(i)=position THEN PRINT 

item$ (i) :printed=TRUE 

1620 IF itempos(i)=position AND i=] AN 
D NOT on THEN PRINT bright$(@) 

1030 IF itempos(i)=position AND i=] AN 
D on THEN PRINT bright$(lit) 

1040 NEXT i 

1656 IF NOT printed THEN PRINT"nothing. 

1668 ENDPROC » 


Return Of The D 


by R. McGreg 
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1678: 

1088 DEF PROCanalise 

1698 IF LEN(c$)=1 THEN IF INSTR("NESW" 
,CS)>@ THEN PROCmove: ENDPROC 

1106 IF cS="LOOK" THEN PROClook:ENDPRO 
Cc 

1116 IF LEFTS(c$,3)="INV" THEN PROCinv 


entory: ENDPROC 
1126 IF cS$="SCORE" THEN PRINT"Your sco 
re is ";score;".":ENDPROC 


1138 IF c$="MOVES" THEN PRINT"Moves ma 
de : ";moves: ENDPROC 

1148 PROCothercommands 

115@ ENDPROC 

1166: 

1178 DEF PROCtimepassing 

1188 score=score-1 

1198 moves=moves+1 

1286 dimmed=FALSE 

1210 IF on THEN reallit=reallit-0.1:di 
mmed=TRUE 

1228 Lit=INT(reallit) 

1230 IF dimmed AND lit=@ THEN PRINT"Yo 
ur lamp just went out.":on=FALSE 

1249 won=(position=8 AND itempos (2) =8) 

1258 ENDPROC 

1266: 

127@ DEF PROCmove 

12808 dir=INSTR("NESW",cS) 

1298 IF newpos(position,dir)=@ THEN PR 
INT"You can't move in that direction.": 
ENDPROC 

1308 IF (position=6 OR position=9) AND 

(NOT on OR (itempos(1)<>position AND i 
tempos(1)<>@)) THEN PRINT"You have fall 
en into a snake pit!":dead=TRUE: ENDPROC 

1318 position=newpos (position,dir) 

1326 PROClook 

1336 ENDPROC 

1346: 

1356 DEF PROCinventory 

1360 PRINT 

1376 PRINT 

1388 PRINT"You are carrying :" 

1398 printed=FALSE 

1406 FOR i=1 TO 6 

1410 IF itempos(i)=@ THEN PRINT items ( 
i) :printed=TRUE 

1426 IF itempos(i)=@ AND i=1 AND NOT o 
n THEN PRINT bright$(@) 

1436 IF itempos(i)=@ AND i=] AND on TH 
EN PRINT bright$(lit) 

1448 NEXT i 

1450 IF NOT printed THEN PRINT"nothing 

" 


1468 ENDPROC 

1478: 

1480 DEF PROCothercommands 
1498 comno=FNcommand 

1508 thingno=FNthing 


1518 IF comno=@ OR thingno=9 THEN PRIN 
T"Sorry.I don't understand.":ENDPROC 

1528 ON comno GOTO 1539,1530,1548,1540 
,1556,1560,1578 

153@ PROCtake: ENDPROC 

1549 PROCLight: ENDPROC 

1558 PROCoff: ENDPROC 

1568 PROCdrop: ENDPROC 

1576 PROCki11:ENDPROC 

1588 ENDPROC 

1596: 

1686 DEF FNcommand 

1610 no=6:i=0 

1620 REPEAT 

1630 i=i+l 

1640 IF LEFTS(cS$,LEN(comS (i) ) ) =com$ (i) 
THEN no=i 

165@ UNTIL no>@ OR i=7 

1668 =no 

1676: 

1688 DEF FNthing 

1698 no=6:i=8 

1768 REPEAT 

1710 i=i+l 

1728 IF RIGHTS (c$,LEN(itemname$ (i) ))=i 
temname$ (i) THEN no=i 

1738 UNTIL no>@ OR i=6 

1749 =no 

1756: 

1768 DEF PROCtake 

1778 IF itempos(thingno) <>position THE 
N PRINT"I don't see that here.":ENDPROC 

1788 IF thingno=5 OR thingno=6 THEN PR 
INT"You'll be lucky!":ENDPROC 

1798 IF carried=3 THEN PRINT"You can't 
carry any more.":ENDPROC 

1888 itempos (thingno) =6 

1816 PRINT"O.K." 

1826 carried=carried+] 

1838 ENDPROC 

1846: 

1858 DEF PROCLight 

1860 IF itempos(thingno)<>@ THEN PRINT 
"I would if you had it.":ENDPROC 

1876 IF thingno<>1 THEN PRINT"You're j 
oking!": ENDPROC 

1886 IF on THEN PRINT"It's already on. 
"': ENDPROC 

1890 IF lit=@ THEN PRINT"It won't reli 
ght .":ENDPROC 

1996 PRINT"O.K." 

1919 on=TRUE 

1928 ENDPROC 

1938: 

1949 DEF PROCoff 

1956 IF itempos(thingno)<>@ THEN PRINT 
"you're not carrying that.":ENDPROC 
1968 IF thingno<>1 THEN PRINT"Come off 
it!": ENDPROC 

» pi7 
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SQUARE DANCE 


by Martin Richards 


This program displays a series of expanding and contracting rectangles which 
change colour during the course of execution. The actual 'form' of the patterns is 
random and therefore a number of runs will display different patterns. Some patterns 
repeat after a while, whilst others appear to keep on changing, giving an 
interesting display of coloured graphics. 


@sersane 
siaeutae 
Steentane 
steuetaen 
a a 
@taeaeteanwina 


In this program, the commands Oh —— 
and VDUI9 (see User Guide p.97 a@=— 
p.102) are used to good effect 
producing the many colours generated. aap 
Some interesting fringe patterns arCeeem 


also produced if you watch the output ® 
on a monochrome 1] 


PROGRAM ANALYSIS 
(The numbers low refer 
numbers in the program listing.) 


Gets rid of the cursor. 
Puts the graphics origin at the= 


centre of the screen. 
- Pe ae ee ,* 
Selects the initial height and 
width of the rectangle. 

=e 


i 


Selects the speed at which the ## 
sides are to change. 

Selects the initial colour. 

218 

Main Loop 

stop). 

176 

Draws any particular rectangle 
Chooses the next widtt 

height. 

If rectangle is too wide 

change direction and colour. 

If rectangle is too high then gumete 
change direction and logical ——mmt 
colour. : 


ESE (oS 
EE } 


i= 
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1@ REM Program Square Dance 

20 REM Version E@.2 

38 REM Author M. Richards 

48 REM ELBUG December 1983 

50 REM Program Subject to copyright 


78 ON ERROR GOTO 220 
89 MODE 1 

90 VDU23,1,0;9;9;G; 
108 VDU29,649;51G0; 


118 X=: Y=0 

12@ DX=RND(58) :DY=RND(59) 

138 C=RND (3) 

14@ REPEAT 

15@ GCOL 3,C 

168 MOVE X,Y:DRAW-X, Y: DRAW-X,-Y 

176 DRAW X,-Y:DRAW X,Y 210 UNTIL TRUE=FALSE 

186 X=X+DX: Y=Y+DY 228 ON ERROR OFF:MODE 6 

198 IF ABS(X)>64@ THEN DX=-DX :C=RND(3) 238 REPORT :PRINT" @ line ";ERL 
208 IF ABS(Y)>51@ THEN DY=-DY :VDU 19 243 END 


/RND (3) ,RND (7) 7G; 


THREE NEW BOOKS FOR THE ELECTRON 


Reviewed by Mike Williams 


The arrival of the Electron is the signal for publishers to rush out books for 
the user, particularly in this pre Cristmas season. We review here, three of the 
first to be available. 


21 Games for the Electron by Mike 
James, S.M. Gee and Kay Ewbank 
published by Granada at £5.95. 

ISBN @-246-12344-3. 


As well as being a useful collection 
of games programs this book also 
emphasises its other aim of developing 
the programming skills of the reader. 
In view of this it is really quite 
astonishing how badly written, in my 
view, many of the programs are. BBC 
Basic, which is used on the Electron, 
is one of the best versions of Basic on 
any micro for writing clear, readable, 
well structured programs. Yet this 


book chooses to ignore nearly all the inelegant programming. What is so 
features which make this such a good ironic is that the text accompanying 
Basic, in favour of a_ style of each program is really quite good, with 
programming that was out of date 10 helpful analysis of the program and 
years ago. Considerable use is made of suggestions for modifications and 
subroutines using GOSUB instead of the enhancements. Clearly many Electron 
preferable procedures. REPEAT-UNTIL, so users will be tempted by a book of 
often such a natural form of games at the reasonable price of £5.95. 
expression, is never mentioned, neither Even so I cannot bring myself to 
is IF-THEN-ELSE; there is no use of recommend a book which makes such bad 
integer variables, no meaningful use of BBC Basic. It is no way to 
variable names, little use of lower encourage newcomers to computing to 
case text and many examples of write programs. 
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The Electron Book, Basic, Sound and 
Graphics by Jim McGregor & Alan Watt 
published by Addison-Wesley at £7.95. 
ISBN 9-201-14514-6 


This is an excellent book packed 
with ideas and information. It is a 
book for beginners who are interested 
in writing their own programs and are 
prepared to spend some time and effort 
on the way. The first half of the book 
introduces all the main features of BBC 
Basic with excellent examples. I would 
wish that procedures and structured 
programming were introduced earlier in 
the book, but it is good to see GOSUB 
being ignored completely. Tne second 
part of the book consists of three 


chapters dealing with graphics, sound 
and animation on the Electron. Again 
there is plenty of detailed 


information, well presented and with 
many good illustrations. The style and 
content of this book are both 
excellent, and with just over 300 pages 
for under £8, it is really good value 
for money. AS a comprehensive 
introduction to programming in Basic on 
the Electron, this book will be hard to 
beat. 


VILLA MMMM Mh hh hh 


Assembly Language Programming on the 
Electron by John Ferguson & Tony Shaw 
published by Addison-Wesley at £7.95. 
ISBN @-281-14527-8 


Although most microcomputers are 
programmed in Basic, the machine itself 
can only understand so called ‘machine 
code', a much more primitive language. 
Programming in Basic is generally much 
easier, but the necessity of bridging 
the gap between Basic and machine code, 
which is what the Electron's Basic 
interpreter does, tends to make 


programs written in Basic both long and 
relatively slow. 


Programs that are written directly 
in machine code are much more compact 
and much faster. This is how the best 
of the action games are written, so 
there are advantages to writing 


programs in machine code, though it is 
harder. Such programs are normally 
written in a slightly easier format 


called Assembler and this book provides 
a comprehensive introduction to this 
form of programming. 


Assembler programming is not an 
easily learnt skill and most books on 
the subject take a fairly formal 
approach. The book reviewed here 
attempts a more popular approach with a 
number of somewhat gimmicky diagrams 
and illustrations that unfortunately 
tend to confuse rather than clarify the 
ideas being presented. The order of 
presentation is also somewhat unusual 
with reference to subroutines and 
stacks before more than the most 
elementary addressing modes. Many 
aspects of assembler programming are 
covered including, for example, more 
advanced topics such as_ interrupts. 
There is also quite good coverage of 
the ways in which assembly language 
programs are embedded within Basic on 
the Electron. 


This book represents an honest and 
worthwhile attempt to popularise what 
can often be a difficult subject. 
Unfortunately, this is not altogether 
successful in this case, and I continue 
to believe that a more serious approach 
is still the best for this subject. 
That apart, this is a sound book that 
will help many users to learn assembly 
language programming and is reasonably 
priced. 


SS BOOK NEWS 


We have also recieved for review a number of books on computing published by 
Usborne. None of the books is specifically about the Electron but they are all very 
colourful and well produced and would make ideal Christmas presents for the kids, if 


not for the grownups. They cost only £1.99 in paperback with a larger than usual page 
size. Examples of the titles are: 


Computer Jargon 

Better Basic 

Adventure Programs 
All the books should be in the shops now. 


Robotics 
Practise Your Basic 
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ASTAAD — A PROGRAM FOR COMPUTER AIDED DESIGN 
by Jim Tonge 


Computer Aided Design (CAD) is one of the more fascinating applications of 
computers and one for which the Electron has considerable potential. We present here 
a really excellent example of a CAD package which contains all the basic drawing 
facilities; not only that, but the package will also allow you to produce Any Size 
Text printed at any Angle Anywhere on the Drawing, which explains the origins of the 


name of the package, ASTAAD. 


INTRODUCTION 
As you can see from the 
illustrations accompany ing this 


article, the ASTAAD program is capable 
of producing remarkably sophisticated 
drawings for its extremely compact 
size. The program is also well 
structured so that you can readily 
extend the range of facilities to suit 
your own needs. The program runs in 
mode @ for the maximum resolution, and 
all the drawing is done in black on a 
white background. The various options 
are selected by the function keys plus 
Shift and Copy. 


A function key label accompanies 
this article. This may be photocopied 
and attached above the number / 
function keys with a little Blu Tack or 
similar. 


USING THE PROGRAM 

When the program is RUN, a 
flickering cursor appears at the centre 
of the screen, which can be moved in 
steps of 10 g.u.(graphics units) by the 
four cursor keys. As a guide, the 
graphics screens on the Electron are 
made up of 1288 g.u. horizontally, by 
1024 vertically. Function key £4 makes 
the cursor MOVE, £5 makes it DRAW, and 
£7 DELETES. The distance from the 
starting point is shown in the top 
right hand corner, and this acts as a 
ruler. This can be reset to a new 
starting point at any time by pressing 
Shift, and this also happens 
automatically when you change direction 
using the cursor keys. The ruler is 
very useful for measuring parts of a 
drawing and positioning new objects. 


Another method of drawing a line, at 
an any angle, is to move to one end of 
the line and press Shift, and then move 
the cursor to the other end, and press 
Copy. To delete the line, press Copy 
again. For greater accuracy, after 


IE Te 


8-6-2 Locomotive - Murtalbahn 


moving to one end of the line, press £6 
and then enter the length in g.u. and 
angle in degrees, each followed by 
Return. For example, £6 234 <return> 90 
<return> gives a vertical line from the 
cursor towards the top of the screen; 
£6 432 <return> 180 <return> gives a 
horizontal line to the left. Note that 
Return on its own enters zero, so. that 
£6 432 <return> <return> draws a 
horizontal line to the right. Also both 
positive and negative angles can be 
specified. 


The standard characters can be 
entered directly from the keyboard, the 
cursor being moved after each one, 
normally two steps to the right. 
Underlining needs one step down, 
superscripts one step up, and the 
characters ~ / and \ can be positioned 
for accents. 


The "“ASTAAD" text facility is 
brought into use by f@ after moving the 
cursor to the required position, and 3 
inputs are called for. The text input 
is limited to 41 characters. In 
response to "Size" any number can be 
used, but between 2 and 3 is the 
smallest likely to be _ legible, 
depending on the TV/monitor in use, 
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while 125 almost fills the screen with one character. Any angle can 


be entered, positive or negative. Note that text can be underlined 
using the Shift-Copy feature or the f6 routine. Many interesting I 
effects can be discovered by experiment. For example, a row of "size 
5 underlines" gives a useful thick line, and with size 8 you can 
draw a frame around your drawing. 


Arrows are often needed on drawings for dimensioning and on 
leader lines pointing to objects. Function key f] draws an arrow at 
the cursor position after the direction angle has been entered. 


Function key £2 produces circles, ellipses, triangles, 
rectangles, pentagons and other polygons to be drawn around the 
cursor. Three inputs are called for, Horizontal Axis (in g.u.), I 
Vertical Axis, and Number of Sides. A few examples show the way:- 
Circle, radius 180 g.u.: 

166 <return> 108 <return> 38 <return> 
Ellipse: 
200 <return> 5@ <return> 30 <return> 


spre, length of side 300 g.u.: 
<return> 300 <return> 4 <return> 


Regular pentagon: 
<return> 500 <return> 5 <return> 


Vertical line: 
<return> 82 <return> 2 <return> 


Function key £3 enables you to repeat or copy the last shapel 
(produced using £2) at a new cursor position, and is useful for | 
windows in houses, portholes in ships, shading with dots and angled 
lines, and so on. If a mistake is made f7 followed by £3 will delete 
the shape just drawn. 1 
Circles are needed so frequently that £9 is programmed so that | 
only the radius need be entered. Radius=@ (i.e. £9 <return>) prints | 
a dot, and f9 5 <return> produces a useful blob. I 


To clear an area of the screen, move the cursor to the bottom | 
left hand corner and press Shift, and then move to the top righty 
hand corner and press £8. This will clear the rectangular area] 
defined by these two opposite corners. Reversing the two corners] 
will usually clear the whole screen so be careful! If you want to] 
clear the whole screen then Ctrl-L is the quickest way (i.e. press] 
the CTRL key, and while holding it down, press "L"). Escape can be J 
used if a mistake is made in the middle of a procedure, or to move] 
the cursor to the centre of the drawing area. 

| 


APPLICATIONS AND EXTENSIONS 

Now is the time to try your own drawing. The possibilities arel 
legion, but here is a tip if you wish to produce a serious drawing 
rather than a sketch or doodle. Start with a sketch on paper marking 
dimensions in g.u. Use a scale to suit the available screen area, 
which is 1258 X 980 g.u., and leave room for a title and labelling. 


Other functions and facilities may easily be added to the | 
program. A screen dump to tape is one idea, but above all, 
frequently-used symbols could be built in. We incorporated a routine 
into the program to save screen dumps on to tape, in order to 
provide the illustrations for this article. We also included the 
facility to load a screen dump back from tape for further use by the | 
ASTAAD program. If you decide to add this feature to your program, | 


then we suggest that you type in and check the main program first. | 
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The easiest way to implement the 
save/load function is to make the error 
handling routine call your screen dump 
(or load) when Escape is pressed, 
placing the call between lines 1149 and 
1168. In this way, pressing Escape 
and say CTRL will cause a dump to be 
executed, returning to the screen with 
the cursor in the central position. In 
our version Ctrl-Escape produces a 
‘beep' from the micro. Pressing 'S' 
will then save the current screen 
display to tape while pressing 'L' will 
load a new screen display from tape. In 
both cases the micro responds with a 
second 'beep' and the screen display on 
tape is referred by the standard name 
"SCREEN'. 


Tne additional lines that you need 
for this feature are as follows: 


ASTAAD 


PROGRAM NOTES 

Mode @ is used in the program for 
maximum resolution amd PROCsetup, 
called at the start of the program 
initialises the variables used and 
positions the cursor at the centre of 
the screen. *FX4,2 makes the 4 cursor 
keys and Copy generate ASCII codes, and 
*FX225,129 causes the function keys to 
produce ASCII codes 129 upwards. X% and 


Y$ are the cursor co-ordinates with 
initial mid-screen values. 


The main progran repeatedly looks 
for keyboard input while at the same 


time maintaining the cursor on the 


screen. Whenever a key is pressed the 
program distinguishes between normal 
ASCII codes (less than 128 in value) 
which are sent direct to the screen 
(these are mainly printing characters 
plus the usual control characters), and 
other inputs such as the function keys, 
cursor keys, Shift and Copy. For these 
the program branches to the 
corresponding procedures amd line 
drawing routines depending on the value 
of J% (in the range 1 to 16). All 
cursor keys movements are handled by 
routines starting at line 250. 
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115@IF INKEY-2 MOVE -190,-190:VDU7: Ink$ 
=GETS$: VDU7: GOTO11 70 

117GIF Ink$="L" OSCLI ("LOAD SCREEN 3080 
") ELSE IF Ink$="S" OSCLI ("SAVE SCREEN 
3008 JEFF 30006") 

1188VDU7: GOTO98 


Once a screen display has been saved 


to tape, you can also re-display this 
directly, without using ASTAAD, by 
typing: 

MODE@ <return> 


*LOAD SCREEN <return> 


You will find that this gives a 
white image on a black background, the 
default colours for mode @. If you want 
to see the picture displayed as black 
on white, you must type in_ the 
following command after selecting mode 
and before loading the picture to the 
screen: 


VDU19,9,7,9,9,0:VDU19,1,0,0,0,9<return> 


This reverses the normal use of the 
two colours black and white in mode @. 


PROCtext is the procedure for 
drawing any size text at any angle. It 
scans the 8 X 8 matrix for each 
character in the  Electron's ROM 
(resident Read Only Memory), and moves 
the graphics cursor to points on the 
screen depending on the size(S%) and 
angle(T%) required. Either PROCdot (for 
small characters less than size 5) or 
PROCsq (for larger characters) then 
prints dots or squares to form each 
character. The procedure is wide open 
to any input and distortion occurs at 
some sizes and angles. A user who takes 
this procedure into his own program is 
well advised to select a few suitable 
sizes and amend the spacing (the 7.6 in 
line 538) and size of square (E and F 
in line 619). 


PROCshape (lines 799-88@) is a 
modified version of ‘Fast Polygon' 
described in BEEBUG Vol.2 No.1, and 
circles are drawn (f9) by setting up 
the parameters before calling 
PROCSHAPE. The other procedures are 
easy to follow, perhaps with a little 
aid from the User Guide. 
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1@ REM Program ASTAAD 

20 REM Version E1.3 

30 REM Author Jim Tonge 

40 REM ELBUG December 1983 

5@ REM Program subject to copyright 

60 : 

7@ MODE @ 

84 ON ERROR GOTO 1146 

98 PROCsetup 

198 REPEAT 

110 PROCruler 

12@ IF INKEY-1 THEN key=9:V=5:X1%3=X%: 
Y13=Y%:k=10:Z=4:GOTO14d 

130 key=INKEY (@) :IFkey<=@ THEN 290 

149 IF key<129 PRINT CHRS (key) :X3=X8+ 
20* (X3<1 258) * (key<>9) : GOTO] 28 

158 VDU7 


ASTAAD 


Creates 
any size text 


168 J%=key-128 

176 ON J% GOTO 206,186,220,240,2508,25 
0,199,258, 216,238,126,288,278,278,278,2 
78 ELSE 170 

186 PROCarrow: PROCcursor 

198 PROCLine: PROCcursor 

208 PROCtext:PROCcursor 

218 PROCdelete: PROCcursor 

2206 PROCpoly: PROCsnape (H$,V%,G%) : PROC 
cursor 

23@ PROCcircle: PROCshape (H$,V%,G%) : PR 
OCcursor 

248 PROCshape (H%,V%,G%) : PROCcursor 

250 IF J%>4 AND J%<7 OR J%=8 THEN Z=J 
%-1 ELSE Z=4 

260 IF J%=8 Y=7 ELSE Y=5:y=Y-4 

278 X$=X%-18* (JS=13) * (X$>1G) +10* (JS=1 
4) * (X$<1 260) s YS=YS-1 B* (JS=15) * (Y$>19) +1 
O* (J&=16) * (Y3<99G) : PLOTZ,X%,Y% 

280 IF J8=12 k=@:PLOTV,X1%,Y13:IF V=5 
THEN V=7 ELSE V=5 

299 PROCcursor 

300 UNTIL FALSE 

316 END 

326: 

338 DEFPROCsetup 

348 VDUS 
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350 VDU23,1,0;9;9;¢ 
368 VDU19,G,7,6,9,9:VDU19,7,9,0,9,G 
378 *FX4,2 
380 *FX225,129 
398 X$=63G: Y$=490: Y=5:Z=4: J$=9: k=0:BS 
=0:T3=G: j=0:X1$=630:Y1S=498 
408 ENDPROC 
410: 
426 DEFPROCruler 
430 IF J%<13 OR J%>18 ENDPROC 
44% IF k=1@ THEN 460 ELSE 450 
450 IF J%<>j THEN X1%=X%:Y1%=Y$% 
468 BS=SQR((X1$-X$) “2+ (Y1$-Y$%) *2) 
470 VDU4:@$=1 31082: PRINTTAB (60,1) BS+1 
0-k:VDU5:j=J% 
488 ENDPROC 
498 : 
500 DEFPROCtext 
518 IF J%<>1 ENDPROC 
520 VDU4, 28,6,1,59,1: INPUTTAB(6,1)"Te 
xt? "T$,"Size? (2 to 125): "S%,"Angle( 
deg.) ?"T$:CLS:VDU5, 26 
530 E=S%*SIN (RAD (TS) ) sF=S$*COS (RAD (TS 
)) 
549 FOR C%=1 TO LEN(TS) 
558 A$=&BFGB +ASC (MIDS (TS,C%,1))*8 
560 FOR P$ =O0TO 7:FOR Q% =8 TO 7 
576 MOVE X$+P$*E-Q%*F+C8*7. 6*F, Y8-QS* 
E-P$*F+C3*7.6*E 
586 IF S%<5 THEN PROCdot ELSE PROCsq 
590 NEXT Q%,P%,C% 
668 ENDPROC 
618 : 
628 DEFPROCdot 
636 IF (2°Q% AND A%?P%)<>@ THEN PLOT6 
5,0,8 
648 ENDPROC 
659 : 
669 DEFPROCsq 
676 IF (2°Q% AND A$?P%$)<>@ THEN PLOT@ 
,£,E:PLOT81, (E-F) ,-(E+F) :PLOT81,F,E 
688 ENDPROC 
698 : 
788 DEFPROCarrow 
710 IF J%<>2 THEN ENDPROC 
726 VDU4,28,6,1,59,1: INPUTTAB(6,9@) "An 
gle of arrow? "W%:CLS:VDUS 
73@ a=15*COS (RAD (W%$+35) ) :b=15*SIN (RAD 
(W%+35) ) :c=15*COS (RAD (W3-35) ) :d=15*SIN 
(RAD (W$-35) ) 
748 PLOTy,-a,-b:PLOT@,a,b:PLOTy,-c,-d 
: PLOT@,c,d:VDU26 
758 ENDPROC 
769 : 
776 DEFPROCline 
788 IF J%<>7 THEN ENDPROC 
798 VDU4,28,6,1,59,1: INPUTTAB(6,@) "Le 
ngth? "L3,"Angle?(deg.) "N%$:CLS:VDU5S 
8866 LX=L%*COS (RAD(N3) ) : LY=L3*SIN (RAD ( 
N%) ) :X2$=X$+LX: Y2$=Y$+LY: PLOTY,X2%3,Y23: 
X$=X 2%: YS=Y2$ : VDU26 
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818 ENDPROC 

820 : 

830 DEFPROCpoly 

848 IF J%3<>3 THEN ENDPROC 

850 VDU4, 28,6,1,59, 1: INPUTTAB(6,@) "Ho 
rizontal Axis?"H%3,"Vertical Axis?"V%,"N 
0.of sides(38=circle or ellipse) ?"G%:CL 
S:VDUS, 26 

860 IF G%=4 THEN H%=H%8/SQR (2) :V3=V3/S 
QR (2) 

878 ENDPROC 

880 : 

898 DEFPROCshape (H3,V%,G) 

960 IF NOT(J%=3 OR J%=4 OR J%=1@) THEN 
ENDPROC 

910 LOCAL I%,K%,M%,N,C,S,B,D,R,T 

928 N=2*PI/G%:C=COS(N): S=SIN(N) :B=1/ 
SQR (2) :D=1/SQR (2) 1058 : 

930 FOR I%=1 TO G+] 1868 DEFPROCdelete 

949 R=B*C-D*S: T=B*S+D*C 1070 IF J%<>9 ENDPROC 


950 B=R:D=T: K$=H3*B+X3:MB=VS*D+YS 1080 VDU24,X1%;Y1%;X%;Y%; s:CLG: VDU26 
960 IF I%>1 THEN PLOTY,K%,M% ELSE MOV 1698 ENDPROC 
E K%,M% 1106 : 
976 NEXTI% 1118 DEFPROCcursor 
980 ENDPROC 1128 PLOT4,X%,Y%+15: PLOT6,X%,Y%-15: PLO 
996 : T 4,X$-15,Y%: PLOT6,X3+15,Y%: PLOT4,X%,Y% 
1868 DEFPROCcircle +15: PLOT6,X%, Y$-15: PLOT4, X$-15, Y$: PLOT 
1910 IF J$<>18 THEN ENDPROC 6 ,X$+15,Y%:PLOT4,X%,Y% 
1028 VDU4,28,6,1,59,1: INPUTTAB(6,@) "Ra 113@ ENDPROC 
dius of circle? "R%$:CLS:VDU5, 26 1146 IF ERR<>17 THEN ON ERROR OFF :MODE 
1030 HS=R$:VS=RE: G3=3G 7:REPORT: PRINT" at line ";ERL:END 
1048 ENDPROC 1168 GOTO 96 


MUSICAL CHRISTMAS CARD ; 


by D. Chappel 


With Christmas approaching we have 
decided to include a program with a 
seasonal flavour that provides a good 
demonstration of the sound and graphics 
capabilities of your Electron. The 
program builds up an_— attractive CorAssags 
Christmas card display on the screen 
and’ then plays a rendering of "God Rest 
Ye Merry Gentlemen". We are sure that 
you will find the results of typing in 
this relatively short program well 
worth while. Be careful when copying 
the program, particularly with the data 
statements at the end, if you don't 
want the music to be out of tune. 


Fron 


The program is well structured and 


you should have no difficulty in defined characters. The flickering 
identifying the various parts from the effect is achieved by randomly 
procedure names. The holly leaves and switching the flames between several 
berries are drawn using graphics different versions defined at the start 
commands while the candles and the of the program. The music is held as a 


flickering flames are drawn with user series of numbers in data statements 
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which are used as the parameters for 
sound frequency, volume and duration in 
the procedure PROCmusic. Once started 
the music will continue indefinitely 
until you press Escape or Break. 


1@ REM Program CANDLES 

2@ REM Version E@.4 

3@ REM Author D.CHAPPEL 

40 REM ELBUG December 1983 

50 REM Program subject to Copyright 


76 ON ERROR GOTO259 

80 MODE] 

98 PROCsetup 

106 PROCgreeting 

119 PROChol1ly (1080,959,149,50,0.8) 
128 PROCholly (1200,820,60,109,1.3) 
138 PROCberry (1050, 886,24) 

140 PROCberry (1100,850,24) 

158 PROCberry (1040,825, 28) 

168 COLOUR]: PROCcandles 

176 COLOUR3: PROCbase 

188 COLOUR2 

196 REPEAT 

286 PROCflicker (RND(7) ) 

210 PROQnusic 

226 UNTIL Newyear 

238 END 


256 ON ERROR OFF 
268 MODE6 
270 IF ERR<>17 REPORT:PRINT" at line 


286 END 

298 : 

306 DEF PROCSetup 

318 DIMFS$(5) ,Q% (35) ,R’(35) ,S(7) ,C(7) 

320 PROCchars: Newyear=FALSE 

338 FORI$=1TO5:FS$ (1%) =CHRS$ (223+13*2) + 
CHRS (16) +CHRS (8) +CHRS (224+13*2) : NEXT 

348 VDU19,3,2,0,8,9:VDU23,1,0;6;0;0;9 

35@ ENDPROC 

368 : 

3708 DEF PROCgreeting 

388 COLOUR3: PRINTTAB (18,5) "Happy" :COL 
OUR] : PRINTTAB (20,9) "Christmas" 

398 COLOUR3: PRINTTAB (23,13) "From" :COL 
OUR] : PRINTTAB (28,17) "ELBUG" 
466 ENDPROC 
410: 
4280 DEF PROCchars 
430 VDU23,224,&FFFF;&EFFF; &FFFF ; &FFFF 
FP; 
448 VDU23,225,&6; &2020; &3030;&7870; 
458 VDU23,226,&FCF8; &7CFC; &3C7C; &1 818; 
468 VDU23,227,&0; &8404; &OCOC; & EGE; 
47@ VDU23,228,&3F1F; &3E3F;&3C3E; &1818; 
486 VDU23,229,&100G; &381 0; &783G; &FCEC; 


%) 


818 


VDU23, 230,&7EFE; &3E7E; &1C3C;&1 818; 
VDU23,231 ,&800; &CO8; & 1EGC; &3F3F; 
VDU23, 232, &7E7E;&7C7E; &383C;&1818; 
VDU23,233,&1808; &3C18; &7C3C; & FETE; 
VDU23,234,&FFFF;&FFFF;&3E7F;&181C; 
ENDPROC 

DEF PROChol]ly (X%,Y%,E%,F%,R) 
VDU29,X%;Y%; :GCOLG, 3: L3=8 

MOVEG, 0:MOVEG.9*E%,@ 

FORA=0T06. 4STEPG.2 

MOVES, 

X$=E%*COS (A) -R*E%$/LS*COS (A*L8) 
YS=FS*SIN (A) +1.04/R*ES/LE*SIN (A*L 


PLOT85, X%, YS: NEXT 
ENDPROC 


DEF PROCberry (X%,Y%,B%) 

GCOLG, 1: VDU29,X%;Y3; 

FORA=9T06.5 STEPG.5 

MOVE@, @:MOVEBS* 1. 2*SINA,Bé*COSA 
PLOT85 ,B3*1.2*SIN(A+0.5) ,B*COS (A 


NEXT: ENDPROC 


DEF PROCcandles 

FORY%=30TO1 GSTEP-1 

X%=0: REPEAT: X$=X$+5 
PRINTTAB (X%, Y%) CHRS (224) 
UNTILX$DIV5= (Y%-7) DIV3: NEXT 
ENDPROC 

DEF PROCbase 
FORX%=1T038: PRINTTAB (X%, 31) CHRS (2 


24) ;:NEXT 


820 
838 
840 
859 
868 
876 
PROC 
88d 
890 
986 
919 


928 
938 


ENDPROC 

DEF PROCmusic 

IFADVAL (-6) <3 ENDPROC 

READP3 ,D% 

IFD%=-1 RESTORE: SOUND1, 0,06, 30: END 


SOUND1,-14,P%,D% 

ENDPROC 

DEF PROCflicker (K%) 

PRINTTAB (K8*5, 5+K$*3) FS (RND(5) ) 
ENDPROC 


946 : 


958 
960 


REM SOUND DATA 
DATA117,7,117,7,145,7,145,7,137,7 


7129,7,125,7,117,7 


976 


DATA109,7,117,7,125,7,129,7,137,7 


7145,21 


986 


DATA117,7,117,7,145,7,145,7,137,7 


7129,7,125,7,117,7 


996 


DATA109,7,117,7,125,7,129,7,137,7 


7145,21 
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1048 DATA145,7,149,7,137,7,145,7,149,7 
7157,7,165,7,145,7 

1818 DATA137,7,129,7,117,7,125,7,129,7 
gl Siplelates 


9,7,137,7,145,14,149,7,145, 
1 


9,7,137, 
7,129,7,125,7,117,14,129,4, 


F 
36 DATA137,7 137; 7/129; 7, 187,7,145;7 
‘9 ie 157, 7,165, 7,145,7,1377,129,7,12 
17,21,6,-1 


—s 


contd. from page 7 

1976 IF NOT on THEN PRINT"It's already 

off .":ENDPROC 

1988 PRINT"O.K." 

1998 on=FALSE 

2606 ENDPROC 

2318: 

2028 DEF PROCdrop 

2638 If itempos(thingno)<>@ THEN PRINT 
“But you haven't got that.":ENDPROC 

2043 itempos(thingno) =position 

2450 PRINT"O.K." 

2068 carried=carried-1 

2078 ENDPROC 

2089: 

2698 DEF PROCkil1 

21008 IF itempos(thingno) <>position THE 
N PRINT"I don't see that here.":ENDPROC 

2110 IF thingno=5 THEN PROCkillgrenlin 
: ENDPROC 

2126 IF thingno=6 THEN PROCkillpixie:E 
NDPROC 

2138 PRINT"You're joking!" 

2148 ENDPROC 

2150 

2160 DEF PROCkillgremlin 

2176 IF itempos(3)=3 THEN PRINT"You sl 
ash your knife at the gremlin and kill 
it easily.":itempos (5) =-1:score=score+l 
@: ENDPROC 

2180 IF itempos(4)=0 THEN PRINT"You th 
row your hammer at the gremlin,but it c 
atches it and throws it back.":ENDPROC 


2199 PRINT"You fight the gremlin bare 
handed,but only succeed in getting kill 
ea." 

2260 dead=TRUE 

2216 ENDPROC 

2220: 

2233 DEF PROCkillpixie 

2248 IF itempos(4)=% THEN PRINT"You th 
row your hammer at the pixie......A hit 
!"sitempos (6) =-1:score=scoret+] 6: ENDPROC 

2258 IF itempos(3)=@ THEN PRINT"You sl 
ash your knife at the pixie but it dodg 
es." :ENDPROC 

2266 PRINT"You fight the pixie bare ha 
med but it is stronger than you th 
ought.You get killed." 

2270 dead=TRUE 

2286 ENDPROC 

2290: 

2306 DEF PROCfinish 

2310 PRINT 

2320 PRINT 


2330 IF won THEN PRINT" Congratula 
tions! !!---You won!!!" 
234U I@ dead THEN PRINT" Bad Luck! 


!!---you lost!!!":score=6 
2354 PRINT 
2368 PRINT 
2370 PRINT" You took ";moves;" moves 
" 

, 

2386 PRINT" 
*secore;” .” 
2398 ENDPROC 


and your final score was 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


SAVING MEMORY 


If you often need to use strings in a program, 
quickly. The reason is that 
Electron compares it to the previous \ 


the Electron will eat up available 
re-assign a string variable, the 


memory 


then watch out for your memory, as 
whenever you 
value, and if 


the new value is longer, it resaves the string again, without clearing the prev ious 


value. If, however, the new value 
Therefore, 
likely to be 
likely to be, and define it as a string 
e.g. suppose the maximum length of A$ 
definition: AS=STRINGS(26," "). 


is shorter, the 
irst lines of your programs, Rabotes 
signed during a program, work out the maximum length a string is 
spaces 
is to be 25 characters, 


overwritten. 
rings that are 


ld value wi 
you us 


be 


required: 
following 


slightly larger than 


25 then use the 
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HOW TO WRITE A COMPUTER GAME (Part 1) 


by Mike Williams 


Typing in computer games 


from printed listings can be a useful way to pick up 


programming ideas that you can use in your own programs. Here we go one better, and 
show you how to design and write a simple game, explaining each step of the way. The 


game is called "Santa's 


issue. 


Parcels", 


Clearly not all games programs will 
be the same, but the task of putting 
together a games program, indeed almost 
any program, involves a similar 
approach. There are, of course, many 
books that you can read about 
programming in Basic, and several that 
are specific to the Electron (see our 
Book reviews in this issue of ELBUG). 
You can learn a lot in this way and 
indeed write good programs as a result. 


Nevertheless, it can be very 
instructive to see how someone else 
designs and develops a _ computer 


program. This is what I am going to do 
here, writing a complete games program, 
starting from the very beginning, and 
explaining all the steps along the way. 
I hope that you will find this both 
helpful and enjoyable, and that you 
will discover techniques that you can 


subsequently incorporate into your own 
programs. 

First of all, I will describe the 
game itself. Of course, you won't 


necessarily have a precise idea of how 
the game will finally appear - new 
ideas often occur as you are developing 
the program. The idea of this game, 
remembering that it is a game for 
Christmas, is as follows. A number of 
houses will be drawn across the bottom 
of the screen, each house having a 
chimney. The chimneys will be of 
different sizes. Parcels, which will 
also be of various sizes, will move 
across the screen from right to left. 
Our job as player, will be to hit some 
key on the keyboard, so that the 
parcel drops through a chimney into the 
house below. If we are succesful, then 
our score will increase, while if the 
parcel misses the chimney, then our 
score will be reduced. The game 
continues until, say, 28 parcels have 
missed, falling to the ground below. 


That is the rough outline of the = 5 : : ; 
ae : ene Elect ( q 
game, which is sufficient for now. Our ron graphics in the first issue of 
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a full listing appears elsewhere in this 


aim is to write a clear am readable 
program that will play this game. One 
way of writing a good program is to 
start off with something very simple, 
probably little more than a series of 
procedure calls (and these will be 
virtually non existent at this stage), 
and then progressively add more and 
more detail until the program is 
complete. One significant advantage of 
this approach is that we can 
continually test the program as we 
develop it rather than keep all the 
testing till the end. You will see 


better what I mean when we actually get 
started. 


As with most programs, we need to 
decide what mode we are going to use. 
This in turn depends on how’ many 
colours we want to use, what size text 
and how much menory is available. The 
amount of memory is a fairly fixed 
quantity but modes 3 and under use 20k 
leaving room only for fairly small 
programs, while modes 4 and over only 
use 10k of memory leaving room for much 
larger programs. We will use mode 2, at 
least to start with, as this gives us 
the maximum number of colours to use. 


about the 
series about 


Now some first thoughts 
graphics. We started a 


ELBUG and you are strongly recommended 
to read these articles if you are not 
yet very familiar with the use of 
graphics on the Electron. You will also 
find it helpful to refer to the book by 
Masoud Yazdani (part of your Electron 
pack), particularly on the use of MOVE, 
DRAW and PLOT. We shall use these line 
drawing instructions to draw the houses 
because they are relatively large 
structures, but the parcels will be 
best as user defined characters. They 
are relatively small and being single 
characters we can then move across amd 
down the screen as we wish. We have now 
decided enough to write a _ skeleton 
program as follows: 


186 MODE 2 

118 PROCsetup 
120 PROCfrontpage 
136 PROCchars 
149 PROChouses 
156: 

166 REPEAT 

178 PROCplay 

186 UNTIL over% 
196 END 


As I said earlier, the program 
consists almost entirely of calls to 
procedures that have yet to be written. 
Indeed we probably have only a vague 
idea at the moment of what they should 
contain anyway, but that doesn't 
matter. Selecting the mode for the 
program cannot be put inside a 
procedure and is usually one of the 
first statements in a _ program. 
PROCfrontpage will display some kind of 
title page and details of how to play 
the game. PROCchars will define all the 
user defined characters that we shall 
use, while PROCsetup will do most of 
the other humdrum things, like setting 
initial values for any variables, that 
need to be done at the beginning of 
most programs. The procedure 
PROChouses, will draw the houses across 
the bottom of the screen ready for the 
start of the game. 


The line with the colon (:) is there 
simply to provide visual separation 
between the two parts of the program 
and is a useful trick for producing a 
more readable program. 


The game itself then consists of 
repeatedly going through a series of 
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steps, which I have bundled together at 
the moment as PROCplay (mostly because 
I'm not sure what the steps will be in 
detail yet), until the variable 'over$' 
becomes true. We assume that over$ is 
initially false and that it is set to 
true when our 26 misses are up. The 
game then ends, though we might decide 
later to add an option to start a new 
game, keeping a record of highest 
scores. 


It is useful, even at this stage, to 
start defining the various procedures, 
though the definitions as you will see 
do very little. We will also include a 
line in  PROsetup- to initialise 
‘overt'. Here are the procedures: 


18068 DEF PROCsetup 
1910 over$=FALSE 
1898 ENDPROC 

1999: 

1166 DEF PROCfrontpage 
1198 ENDPROC 

1199: 

1208 DEF PROCchars 
1298 ENDPROC 

1299: 

1380 DEF PROChouses 
1398 ENDPROC 

1399: 

1408 DEF PROCplay 
1498 ENDPROC 


I have started numbering the procedures 
from line 1800 and I have left gaps for 
the insertion of more instructions 
later. 


As I said, this isn't yet very 
exciting as most of these procedures do 
nothing at all. However, if you have 
typed everything into your Electron and 
you now run the program, no error 
messages will be produced (that is if 
you haven't made any typing mistakes). 
The screen will clear, because of the 
MODE2 instruction at the start of the 
program, and then nothing further will 
be seen. The program is repeatedly 
calling PROCplay which also does 
nothing as yet. 


Now this may all  seem_ rather 
pointless at the moment. Here we are 
putting all this effort into typing a 
program into the micro and when we run 
it nothing happens; and nothing goes 
wrong with it either! Knowing that this » 


Se SE LY PE PT TE SED SY I 


ELBUG 


December 1983 


Volume-1! Issue-2 


20 


framework contains no programming 
errors, we can now build up the various 
procedures one by one, testing each one 
by itself as we do so. Let's start with 
the front page. We'll just make this 
display a title on the screen for now. 
Add the following lines to your 


program: 


111@ COLOUR 1 

1120 PRINT TAB(6,2)"SANTA'S" 

1138 PRINT TAB(6,6) "PARCELS" 

1148 COLOUR 2 

1150 PRINT TAB(3,20)"Press any key." 
1168 G$=GET:CLS 


We can immediately test whether this 
works correctly by simply running the 
program. It should now display the text 
in the above instructions on the 
screen. The TAB statements in lines 
1126 and 1130 define whereabouts on the 
screen the text is to be displayed. At 
line 1060 the program waits for any key 
to be pressed, it doesn't matter which, 
before continuing. If your version 
doesn't work correctly, then check it 
very carefully before continuing. The 
whole point of this approach is that we 
develop the program in small steps, 
testing each new addition, so that we 
always have a _ correctly working 
program. 


The next step, I think, is to write 
the instructions to draw the houses. We 
have already decided that the procedure 
PROChouses will display all the houses 
on the screen. However it seems like a 
good idea to define a _ further 
procedure, which we will call 
PROChouse, to draw just a single house, 
and then PROChouses can call this to 
position each house where we want it. 
This approach has two particular 
advantages. It breaks the whole task 
down into two smaller tasks and ensures 
that the houses will all be drawn 
exactly the same because they will all 
be drawn by the same procedure. 


To make the procedure PROChouse 
really useful we will give it four 
parameters (check the Electron User 
Guide page 81] if you're not sure about 
parameters in procedures). The first 
two will be the position of the house 
on the screen as graphics co-ordinates 
(X%,Y%$) followed by the size (size%) 
and the colour (colour%). The size will 


ELBUG 


December 1983 


enable each house to have a different 
size chimney, as in the description of 
our game. You will also notice that I 
am using integer variables (those 
followed by %) as these use less menory 
and result in faster programs (see the 
User Guide page 47 for more information 
on this). The procedure PROChouse is 
defined as follows: 


15808 DEF PROChouse (X%,Y%$,Size%,colour$) 
1516 GCOLG,colour$ 

1526 MOVE X%,Y$:PLOT 1,6,128 

1538 PLOT 1,96,96:PLOT 1,9,26 

1548 PLOT 1,96-16*size%,@ 

1550 PLOT 1,8,16*size%-116 

1568 MOVE X%+96,Y%+224 

1578 PLOT 1,96,-96:PLOT 1,6,-128 

1580 ENDPROC 


To help you understand these 
instructions I have drawn out the house 
with the dimensions below. In mode 2 
each character has a width equvalent to 
64, and a height equivalent to 32, in 
graphics terms. Because we shall be 
defining our own characters for use in 
this progran, I have’ kept’ the 
dimensions of the house mostly in 
multiples of 32 to assist in lining up 
parcels with chimneys later on. This 
didn't all happen just like that, but 
was the result of some experimenting 
both on paper and on the screen. 


ey 
96-16*sizet 


NI 


€ 9 e965 > 


Xb,Y3 


The starting point is the bottom 
left hand corner so we set the colour 
for the house using the GCOL command 
(line 1510) and then move to this 
position. The simplest way of drawing 
lines on the screen will often seem to 
be the DRAW command, but it is worth 


looking at some of the alternatives 
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using PLOT instead. If we use PLOT 
1,XsY then x and y represent the 
distance to draw, horizontally and 
vertically, from the present position, 
rather than the new co-ordinates. Using 
this instruction means that what we 
write for x and y in the program is 
simpler than would have been the case 
if we had used DRAW. For example, the 
PLOT instruction in line 1520 means 
draw a _ line such that we move @ units 
norizontally and 128 units vertically. 
To achieve the same result using DRAW 
would require us to write: 
DRAW X%,Y%+128 

Although the difference is small, 
overall I believe it to be worthwhile. 


The other point requiring some 
explanation is the chimney size. I 
decided that chimneys would be of size 
1, 2, 3, 4 etc corresponding to widths 
of 80, 64, 48, 32 in graphics 
dimensions and I then worked out a 
formula to do this as follows. If the 
variable is sizes (as in this case) 
then the formula has to be a*size%+b 
where 'a' and 'b' are two numbers. that 
we now have to find. To do this we use 
the fact that when size$ is 1 the 
answer should be 86, and that when 
size% is 2 the answer should be 64 so 
for 

size3=1 a+b= 8% 

size=2 2%a + b = 64 
From this we can quickly see that ‘a' 
must be -16 and hence 'b' must be 96. 
In line 155@ we move downwards and by 
2@ more than the width of the chimney 
giving the revised formula used there. 
This kind of technique occurs quite 
often in programs where we want one 
series of numbers to produce a _ rather 
different but related series. 


We haven't fully linked this 
procedure into our program yet, but we 
can test it in immediate mode. After 
enetering the new procedure, just type: 

MODE 2 <return> 

PROChouse (100,190,1,2) <return> 
and you should see a green house 
displayed on the screen. By using 
different numbers you should be able to 
display a house of any colour, anywhere 
on the screen, and vary the size of the 
chimney as well. Immediate mode can be 
quite a useful way of testing a 


procedure in isolation from the rest of 
the program, but if you try this with 
your own programs be careful, because 
it probably won't work if the procedure 
refers to anything else in your 
program. Here there is no such problen. 


Now that we have a procedure to draw 
a house, we can complete the writing of 
the procedure PROChouses to draw all 
three houses on the _— screen. The 
additional lines for our program are as 
follows: 


1318 FOR colour%=1 TO 3 

1328 PROChouse (384*colour%-328,1988,colo 
ur%,colour$) 

1338 NEXT colour’ 

1348 GCOLG,7:MOVE 9,@:MOVE 9,180 

1358 PLOT85,1280,9:PLOT85,1283,109 


The first three lines above use a 
FOR-NEXT loop to draw three houses 
across the screen in red, green and 
yellow and the last two lines use the 
triangle fill command (PLOT85,x,y) to 
paint a layer of white "snow' 
underneath the houses. Notice how the 
value of colour$ is used to control the 
position, colour and size of chimney 
for each of these houses. You should 
now be able to run the program, and 
after the title has been displayed, 
pressing any key should result in the 
three houses being displayed. If this 
doesn't happen then do check the 
procedures PROChouse and PROChouses 
very carefully. 


Unfortunately, that's all we have 
space for this month. I have tried to 
describe everything I have done with 
this program at some length, and as a 
consequence the text of this article 
takes up far more space than even the 
full program. If you feel I have made 
everything too simple, remember that 
there are many Electron owners who are 
just starting. Next month we will 
complete our game by adding the moving 
parcels and scoring. We might even 
manage to add a few interesting sounds 
as well. For those of you who just 
can't wait, we have published the 
entire program elsewhere in this issue 
of the magazine. 
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ROBOT ATTACK 


by Edward Hung 


This month we present an excellent arcade style game for your entertainment. Like 
many games, this is addictive with its fascinating mixture of speed and guile. 


This program is an implementation of 
the classic zombies game, which has 
been written for many computers. You 
control a man who is chased by a number 
of robots. You must dodge the robots, 
and at the same time lure them into 
variously placed mines which explode 
Gestroying the robot. You must also 
keep well clear of the swift and 
purposeful Marvin. From time to time he 
will burst through the bars of his cage 
to pursue you - but you do get a 
warning - the cage bars~ and 
screen-surround will flash if this is 
imminent. If two robots collide then 
they are transported through hyperspace 
to re-appear elsewhere. ROBOT ATTACK is 
pleasantly fast and fun to play, 
requiring a nice balance of dextrous 
skill and strategy. The game has a 
number of nice optional extras -a 
sound on/off option, a high score 
table, instructions and so on. 


The program is entirely in Basic. 
The single CALL command is for OSWORD 


call zero to input the player's name. This technique is extremely useful as INPUT is 
rather unsatisfactory for this purpose, allowing any character to be typed. It is 
also much shorter than trying to write a Basic routine to input a line in this way. 
The relevant lines are 2738 - 2750 which produce a string NS. The control block is 
set up to allow a maximum of 20 characters, each in the range ASCII 32 to 128. 


ROBOT ATTACK IMTRUCTIONS 


You are the last survivor of the 
Hunan Race. u being pursued 
by @ hostile ole Bolo Robots, 
whose only te kill you by 


you. 

MARVIN, King of 

to help then. 

You must kill by luring then 

onto mines which you yourself must 
not walk onto. 


Occasion 
Boloa 


CONTROLS: 
Zz ~ Lert 
x ~ RIGHT 
7 - uF 
7 - com 


SPACE BAR TO HYPERSPACE 


AMY KEY TO START 


18 REM Program Robot Attack 

20 REM Version E9.1 

30 REM Author E.Hung 

40 REM ELBUG December 1983 

5@ REM Program Subject to copyright 


180 PROCsetup 

11@ ON ERROR GOTO 2996 

12@ MODE6: PROCtitle 

138 REPEAT 

140 MODES 

15@ SP$=SP3-59 

166 PROCobstacles 

176 REPEAT 

180 13=I1$+] 

198 PROCcowboy 

266 PROCrobot 

218 IF GKL3=] AND GA$=] AND DD%=@ AND 
RND(1)>.3 PROCmarvin 

226 IF 1%>4 13=0 » 
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230 IF S%>= 
:PROClV:IF SND 

240 

258 $=0 :DP%=8: GOTO] 58 
268 LV%$=LV%-1:DD% IF LV%>@ GOTO16d 

278 PROCdelay (3580) 

288 PROCscore: PROCreset : PROCdisplaysc 
ore 

290 UNTIL FALSE 

368 END 

318 : 

1686 DEF PROCtitle 

1818 VDU31,12,8:PRINT"ROBOT ATTACK" 

1626 PRINT'TAB(11);"By Edward Hung"'' 
"Do you wish to be briefed on the missi 
on"TAB(12);"PRESS Y OR N" 

1630 AS=GET$:IF AS="Y" PROCrules ELSE 
IF AS<>"N" THEN] 630 

1848 ENDPROC 

1650 : 

1068 DEF PROCrules 

1878 VDU12,31,5,1:PRINT"ROBOT ATTACK I 
NTRUCTIONS" 

18880 PRINT'" 
ivor of the Human Race. 
eing pursued" 

1698 FOR T$=1T013:READ A,AS: PRINTTAB(A 
) AS: NEXT 

1108 PRINT'TAB(8)"SPACE BAR TO HYPERSP 
ACE"'''TAB(1@);"ANY KEY TO START" 

1118 DATA@,"by a hostile group of Bolo 
Bolo Robots,",1,"whose only orders are 
to kill you by",13,"xramming you.",2,"0 
ccasionally, Mean MARVIN, King of",4," 


% OS$=0S%+1 500: LVS=LV3$+1 
SOUND1,1,196,1 


You are the last surv 
You are b 


Boloans appears to help them.",2,"You m 


ust kill them by luring them" 


1126 DATA2,"onto mines which you yours 
elf must",13,"not walk onto.",3,"CONTRO 
LS:",16,"Z — LEFT",16,"X — RIGHT",16,": 


- UP",16,"/ — DOWN" 
138 *FX15,0 

146 A=GET 

115@ ENDPROC 


2F PROCsetup 
: El,1,0,0,0,9,8,0,126,0,9,- 


196 VDU23,250,8,28,9,38,46,8, 20, 20 


1236 VDU23,254; 24,60,60,60,66, 24; 
1248 VDU23,255; 146,84; 198; 84,146 
1258 VDU23,224,160,84,184,16,8,5,2; 
1268 VDU23,225;0;6,9,81,127; 

1278 VDU23,226,5,42,29,16,32,192,64; 
1288 VDU23,227;6;6,72,69,127; 

1290 VDU23,228,1,1,1,1,1,1,1,1 


208 VDU23,251,16,56,144,120,26,16,46, 


1210 VDU23,252,24,24,66,90,98,16,16,24 
228 VDU23,253,24,16,124,186,186,16,40 
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1398 VDU23, oe 0,6,38,62,30; 8; 
1319 DIMX% (5) ,Y$(5) ,S%(18) ,NS(1@) 
1328 SND%= ia 

133@ PROCscinit 

1348 PROCreset 

1358 ENDPROC 


*E2SRE" 28°° 


370 DEF PROCscinit 

386 FOR I$=1TO10:S% (1%) =550-13*50:NS ( 
%)="Tne Robots of Zaexon":NEXT 

398 ENDPROC 

468 : 

1413 DEF PROClVv 

1428 VDU17,3,31,1,31:PRINT SPC(14) ;TAB 
(1,31) STRINGS (LV%-1 , CHR$259) ; 

438 ENDPROC 


onl 


- PROCreset 
SC%=0: 0S%=1 508: SP$=408: SH3=1 


DEF PROCrnd] 
=RND (18) :B$= 
PROC 


RND (25) +4 


3)= RND (18) :Y8 (1) =RND (25) +4 


DEF PROCrnd3 
X3=RND (18) :Y3=RND (25) +4 
ENDPROC 


§ DEF PROCobstacles 
VDU23,1,9; 9; 8; 0; :VDU28,1,29,18,3: 
:VDU26:VDU19, 15,2; 90; 

GCOLG, 3:MOVE6@, 60: DRAW] 219, 6@:DRA 


W1 219,930: DRAW6G , 930: DRAW6¢,60:FOR I%=5 


76TO7G4STEP33:MOVEI%, 926: DRAWI$, 866: NEX 
T: DRAW576, 866 

1649 FOR T$=1TO15:VDU17,1,31,RND(18) ,R 
ND (24) +5,254: NEXT 

1658 FOR I$=1T0S » 
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166@ REPEAT PROCrnd2:UNTIL FNpoint=9 

1676 VDU17,6,31,X%(1%) ,Y$ (1%) , 252: NEXT 

1688 VDU5,18,0,2,25,4,576; 1024-4*32; 25 
3,4,17,5,31,5,8 

1698 PRINT"HISCORE ";S%(1)TAB(6,1)"SCO 
RE ";S% 

1788 I%=0:DD$=9: GKL%=-1 : DP$=G:D3=250:G 
AS=G:FL3=@ 

1718 PROClV 

172@ LES=SH&$MOD5 

1738 IF SH%/5=SH$DIV5 LES=5 

1746 IF LE$=] VDU4:PRINT TAB(14,31) ;SP 
C(4); 

1758 VDU5,18,G,1,25,4, (18-LE%) *64; 1024 
-31*32; 

1768 IF SH3>3@8 SH%= 

1770 IF SH&$<31 A=7:IF SH$<26 A=6:IF SH 
$<21 A=5:IF SH$<16 A=2:IF SH%<11 A=4:IF 

SH$<6 A=] 

1788 GCOL@,A:PRINTSTRINGS (LES, CHR$ (229 
)) 

1798 GCOLG, 3:MOVE (18-LE%) *64, 1024-31*3 
2:PRINT TAB(18-LE%, 31) STRINGS (LE%,CHRS ( 
228) ) 

1800 REPEAT PROCrnd1]1: UNTIL FNpnt (A%,B% 
)=08 

1818 a$=A$:b3=BS 

1826 vbU4, 7, 3, 31,A%,B%,250 

1834 FOR T%=1TO1 0000: NEXT 

1848 VDU17,3,31,A%,B%,250 

1856 ENDPROC 

1860 : 

1878 DEF PROCcowboy 

1880 IF INKEY-98 

1896 IF INKEY-67 

1966 IF INKEY- 165 

1916 IF IN 

1928 IF INKEY-99 : 

Crnd1: UNTIL FNpnt(A )B8) 6 AND FNont A 
$,B%)<>2:IF SND%=] THEN SOUND17,2,56,1@ 

1938 IF F%=@ ENDPROC 

1948 AS=A$+ (A$>1 8) - (AS<1) :BS=BS+ (BS>29 
)- (B8<3) 

1956 IF FNpnt(A%,B 
$,B%) : DD$=1 : ENDPROC 

1968 IF FNpnt(A%,B%)=6 OR FNpnt(A3,B3) 
=2 PROCdead: DD%=1 : ENDPROC 

1976 IF ENpnt(A%,B%)<>0 A%=a3:B3=be: EN 
DPROC 

1988 PRINT TAB(a%$,b%)CHRS$32:IF H% 
@: PROCdelay (709) 

1998 VDU17,3,31,A%,BS,D% 

2006 aS=A$:b3=Bs :F%=0 

2018 FOR T%=0TO(SP%/50) : NEXT 

2028 ENDPROC 

2036 : 

2046 DEF PROCrobot 

2058 IF DDS=1 ENDPROC 

2066 IF X%(I%)=@ AND Y%$(I%$)=@ ENDPROC 

2878 OX%=X% (I$) :OY3=Y$ (13) 


$)=1 PROCpit(a%,b%,A 


2088 X%(1%S)=X% (1%) + (X$ (1%) >AS) — (X$ (18) 
<A3) 

2098 Y%(1%)=Y% (1S) + (YS (1%) >BS) -—(Y$ (1S 
<B3) 

2100 IF FNpoint=6 OR FNpoint=2 REPEAT 
PROCrnd2: UNTIL FNpoint=@:IF SND%= 
D1,2,50,18 


1 SOUN 


2110 IF FNpoint=1 PROCpit(OX%,OY%,X%(I 
$) ,Y$ (IS) ) sXB (18) =8: YS (I$) =O: DPS=DPS+1: 
PROCms (19) : ENDPROC 

2126 IF FNpoint=3 PROCdead:DD%=1 : ENDPR 
oc 

2138 IF FNpoint<>@ Y%(1%)=Y$ (1%) +2 

2146 FOR T%=@TO(SP%/5@) :NEXT 

2158 IF SND%=1 SOUND3,-15,19,1 

2160 PRINTTAB (OX%,OY%) ;SPC(1):VDU17,6, 
31,X% (1S) ,Y$ (I$) ,252 

2178 IF RND(1)>0.95 

% GKL3: IF GKL$=1 
GA$=G6:VDU19,15,14;0;: 
1,-15,58,1 

2186 IF C%=-1 VDU5,18,3,2,25,4,9%*64; 198 
24-4* 32; 253, 4: PRINTTAB (X%, ¥8) SPC (1) :C8= 
@: IF SND$=] SOUND1,-15,200,1 

2198 IF FL3=1 +1:IF J$=19 VDU5,18 
oe cree Gea Ae 

3; :FL&=0:GA$=1: IF SND%=] SOUND1,-15,268 

5 

2286 ENDPROC 

2218 : 

2220 DEE 


=8:GKL$=-GK 
sFLS=1:J% 
LIF SND3=1 SOUND 


2230 

2246 } )- (X$<A$) :YS=YS+ (YS>B 
$)-(Y$<BS) 

2256 IF FNpnt(X%,Y%)=15 YS=Y3+2 


2260 IF FNpnt (X%, =] PROCpit (XX%,YY% 
,X3,Y%) :X$=0: Y$=0: GKL$=-1:VDU5, 18,3,2,2 
5,4,576; 1624-4*32; 253, 4: PROCms (166) : END 
PROC 

2270 IF FNont(X%,Y%)=3 
ENDPROC 

2288 IF FNpnt(X%,Y%)=6 REPEATPROCrnd3: 
UNTIL FNpnt (X$,Y%)=@: IF SND$=1 SOUND3,2 


,58,16 » 


PROCdead : DDS=1: 
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2298 IF SND%=1 SOUND2,3,590,1 

2360 PRINTTAB (XX%, YY%) ;SPC(1) :VDU17,2, 
31,X3,Y%,253 

231@ ENDPROC 

2320 : 

233@ DEF PROCpit(a,b,A,B) 

2348 PRINTTAB(a,b)" " 

2350 IF SND%=1 SOUND@,1,5,1 

2368 VDU17,3,31,A,B,255:FOR L=1TO500:N 
EXT: PRINTTAB (A,B) ;SPC(1) 

2378 ENDPROC 

2386 : 

2398 DEF PROCdead 

2400 IF D%=25@ D%=224 ELSE D%=226 

2418 VDU17,3,31,a%,b%,D%:FOR L=1TO506: 
NEXT: VDU31 ,a%,b%,D%+1 

2420 IF SND%=] SOUND@,1,5,1 

2438 PROCdelay (798) 

2449 IF SND%=1 FOR Q$=1TOS:FOR L%=255T 
O2@0QSTEP-1: SOUND17,-15,L%,1:NEXT, 

2450 IF SND%$=0 PROCdelay (2600) 

2468 ENDPROC 

2476 : 

2480 DEF PROCdelay(T%) 

2499 FOR T=1TOT%:NEXT 

2586 ENDPROC 

2518 : 

2520 DEF PROCms(S) 

2536 S%=S$+S:VDU17,2,31,12,1:PRINT;S% 
2548 ENDPROC 

2550 : 

2568 DEF PROCscore 

2570 FOR I%=1TO19 

2580 IF S%>=S%$(I%) AND SC%=0 SC%=I% 
2598 NEXT 

26066 IF SC%=@ ENDPROC 

2618 PROCentername 

2620 FOR P%=18 TO SC%+1 STEP-1:S%(P%)= 
S% (P$-1) :NS (PS) =NS (P$-1) :NEXT 

2638 NS$(SC%)=NS 

2640 S%(SC%)=S% 

2658 ENDPROC 

2668 : 

2670 DEF PROCentername 

2688 VDU12,17,2:PRINTTAB(G,6) “Your sco 
re is in the"''TAB(6)"Top Ten"'''' 

2696 VDU17,6:PRINT" Please enter your" 
''TAB(7)"name:"' ' 

2700 *FX15,0 

2718 VDU23; 16,224; 6; 6; 8; 


2728 VDU31,8,20;17,3 

2736 X%=&80: YS=&A:AS=0 

2748 !&A8G=SAQ0G: ?&A82=2G: ?&A83=32: 2&A8 
4=128 

2758 CALL&FFF1 

2768 NS=S&A0B 

2778 ENDPROC 

2789 : 

2798 DEF PROCdisplayscore 

2868 VDU22,4,23,1;1;0;90;9,19,3,0;0;:PR 
INTTAB (15) "Highscores"'':VDU19,1,3;9;17 
1 

, 

2810 FOR I%=1TO1G:IF I%=1QAAS=""ELSEAA 
$=" " 

2820 BBS="..... "SIF S%(I%)<999BBS="... 
ee e"ZIF S$ (1%) <99BBS="....00. m 

2830 PRINTTAB(3)AAS;1%;BBS;S%(I%);"... 
"SNS (1%) ' 

2840 NEXT 

2858 VDU19,@,0;0;17,1:PRINTTAB(8)"C to 
close sound channel"'TAB(8)"O to open 
sound channel"''TAB(11)"Sound Channel" 
'TAB(11)"Any key to start"'TAB(7)"Or @ 
to clear score table" 

2868 COLOUR3: IF SND%=1 PRINTTAB(25,26) 
"on. “ELSEPRINTTAB (25, 26) "off." 

2878 *FX15,9 

2886 A=GET 

2890 IF A=64 PROCscinit:GOTO2800 

2900 IF A=67 OR A=99 PRINT TAB(25,26)" 
off .": SND%=: GOTO2889 

2919 IF A=79 OR A=111 PRINT TAB(25,26) 
"on. '":SND%=1:GOTO2880 

2928 ENDPROC 

2938 : 

2940 DEF FNpoint 

2958 =FNpnt (X% (1%) , Y% (I$) ) 

2960 DEF FNpnt (U%,V3) 

2978 =POINT (US*64+32, 1410-V%*32) 

2988 : 

29990 ON ERROR OFF 

3808 MODE6 

3010 *FX4 

3024 IF ERR=17 END 

3039 REPORT: PRINT" at line ";ERL 

3648 END 


This program was adapted from a 
version for the BBC- micro first 
published in BEEBUG Vol.2 No.3. @ 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINT 


DISABLING THE ESCAPE KEY & DESTROYING PROGRAMS 


*FX 200,@ Re-enables the Escape key. 


*FX 20,1 Will disable the Escape key. 


*FX 206,2 enables the Escape key, 


but pressing Break will clear the memory, 


preventing the program being retrieved with OLD. 
*FX 206,3 disables the Escape key, and clear the memory on Break. & 
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ELECTRON GRAPHICS (Part 2) 


by David Graham 


We continue our series on Electron Graphics by introducing multiple user-defined 


characters, and simple animation techniques. 
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LARGER CHARACTERS, 

Larger characters may be created by 
joining two or more user defined 
characters together. The excellent 
game Hedgehog, published in ELBUG issue 
1, uses this principle. A whole series 
of characters are defined in the 
procedure PROCDEF INE (line 430 
onwards). Many of the characters 
defined here are small parts of cars 
and trains which are built up elsewhere 
in the program. 


Take, for example, characters 232 
and 233 (defined in lines 620 & 636, 
see ELBUG issue 1 page 32). These 
consist of the front and back of a 
lorry. The lines below will print the 
two halves separately. 


108 MODE 5 

118 VbU23, 232,0, 240,136,136, 255,253, 255 
a2 

128 VDU23, 233,255, 255,255, 255, 255, 255,2 
55,28 

130 PRINT CHRS$233 

140 PRINT CHRS232 


You can print the two side by side, 
and so produce a lorry, by inserting a 
semicolon (;) at the end of line 130. 


You can make the lorry longer by 
adding a second body piece. (PRINT 
CHRS$233;CHRS$233;CHR$232). This tech- 
nique can be both cumbersome and slow 
to execute. Fortunately there is a 
simple solution: use a so-called string 
variable to hold the string of 
characters. 


Try tne following (note that lines 
166 to 126 are as above): 


100 MODE 5 

11 VDU23, 232, 0,248,136, 136,255,253, 255 
1D 

120 VDU23,233, 255,255,255, 255, 255, 255,2 
55,28 

130 lorryS = CHR$233+CHR$233+CHRS232 
148 PRINT lorry$ 


The lorry will now be placed on the 
screen every time that the expression 
PRINT lorry$ is encountered. This 
shows how easy it is to write 
understandable code in BBC Basic. 


If you want to move the lorry across 
the screen, you must erase the back end 
with each new position printed, as 
explained last month. To achieve this 
you can incorporate a space at the back 
end of the lorry which will 
automatically do this for you. Just add 
the following: 


156 lorry$ = CHR$32 + lorry$ 


The character for a blank space already 
exists in the machine as character 32. 


To make the lorry move from left to 
right across the screen, you just need 
a FOR loop of the kind used to move the 
invader in last month's article. 


ko€ A ft 


» 


ELBUG 


December 1983 


Volume-1 Issue-2 


27 


Add the following to achieve this: 


168 FOR A% = 1 TO 36 

176 PRINT TAB(A%,18) lorryS 

186 TIME = @ : REPEAT UNTIL TIME =19 
196 NEXT 

268 END 


In the program Hedgehog, whole 
strings of characters are built up 
using this technique to create a 
highway full of moving cars, and a busy 
railway track. If you have a copy of 
the program, you may find it 
interesting to examine the characters 
that the author has used. Todo this, 
run Hedgehog until the game proper 
begins (to define the characters), and 
then press Break. Then type in and run 
the following program : 


1@ MODE 6 

20 FOR A&% = 224 TO 255 
3@ PRINT A% ; CHRSAS 
40 NEXT 

5@ END 


It will list out the characters used 
against the character numbers. 


VERTICAL CHARACTERS 

All of the characters in Hedgehog 
are constructed by adding individual 
characters together horizontally. If 
you wish to create figures that are 
more than one character high, then a 
further technique is required to join 
the two pieces together. In practice 
it is quite easy. You use cursor 
control characters to reposition the 
cursor between each character printing. 


In order to illustrate this, let us 
try to create a 'man', two characters 
high. The first thing to do is to use 
the character definer program supplied 
on our introductory cassette to 
generate a top and bottom half of the 
man. The two characters can then be 
incorporated into the program amd 
printed out. The following gives an 
acceptable image in mode 4. It will 
need slimming down somewhat for mode 5. 
Try the program below: 


188 MODE 4 

118 VDU23,224,68,126,60,60,24,126,125,1 
89 

12@ VDU23,225,189,60,62,54,54,55,48,56 
13@ PRINT TAB (10,18)CHR$224;CHR$225 


You will see that the two halves are 
printed side by side. The neatest way 
to get them printed correctly is to 
define a string which repositions the 
cursor in the correct position for 
printing the second half. Try adding 
the following: 


148 moveS=CHRS$1 @+CHRS8+CHRS8+CHRS 32 
158 man1] $=CHR$32+CHRS$224+move$+CHR$225 
168 PRINT TAB(198,10) manl$ 


This will print a complete man. It 
works because move$ is made up of 
characters which reposition the cursor 
for printing the man's lower half. 
CHR$18 sends the cursor down one place, 
while each CHRS8 causes a backspace. 
We have backspaced twice and added the 
blank character 32 ready for some 
animation. 


There are four cursor movement 
characters as shown in the table below. 


CHARACTER 
8 Backspace one space 
9 Forward one space 
16 Down onespace 
1 Up one space 


EFFECT 


ANIMATION 


The basic principle behind character 
animation is to cycle through a number 
of different images to produce the 
impression of movement. In computer 
games this is often combined with 
movement of the character across the 
screen. 


To produce a moving animated man we 
first need a second image of the man. 
To keep things simple we will just 
alter the lower half. 
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alternative character may be defined 
with 


138 VDU23, 226,95, 30, 22,54,54,102,76,71 


If you place this into the program and 
add the following lines you should see 
the man walk across the screen. 


1608 man2S$=CHRS$32+CHR$224+move$+CHRS$226 
170 PRINTTAB(1@,18)man1$;TAB(12,10)man2 


186 FOR A=1 TO 38 

199 PRINT TAB(A,15)manl$ 
200 X=INKEY(1@) 

218 PRINT TAB(A,15)man2S 
220 X=INKEY (10) 

238 NEXT 

248 END 


This is achieved by alternating 
between the two men (lines 199 & 21%) 
within the FOR loop which moves them 
across the screen. 


You should be able to use _ these 
ideas as the basis for some interesting 
animations - but remember, if your man 
needs also to walk from right to left, 
he will need two further sets of legs 
with feet pointing in the other 
direction. The use of the INKEY 
statements in lines 268 and 228 is to 
slow down the movement. If you remove 
them, the man moves far too quickly, 
and the effect is lost. The INKEY 


statement is in fact a very useful way 
of creating a time delay. The length of 
the delay is determined by the number 
in brackets. This gives the delay in 
hundredths of a secon. 


Next month we will look at the 
creation of multi-coloured characters 
and their animation. Below you will 
find a complete listing of the moving 
man program. 


REM Program MANRUN 

REM Version v3 

REM Author D.Graham 

REM ELBUG December 1983 

REM Program subject to copyright 


MODE4 
VDU23, 224,66, 126,68,68,24,126,125, 


VDU23, 225, 189,68,62,54,54,55,48,56 
VDU23, 226,95,38,22,54,54,182,708,71 
moveS=CHR$1 9+CHR$8 +CHRS$8+CHR$32 

man1$=CHR$32+CHR$224+move$+CHR$225 
man2$=CHR$32+CHR$224+move$+CHR$226 
PRINTTAB (10,1) man1$;TAB(12,10)man 


FORA=1T038 
PRINTTAB(A,15)man1$ 
X=INKEY (19) 
PRINTTAB(A, 15)man2$ 
X=INKEY (19) 

NEXT 

END 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


READABLE PROGRAMS 


; If you have trouble in reading your programs, try using the LISTO option which 
inserts spaces at certain selected points according to the table below: 

LISTO @ - list the program as stored in memory 

LISTO 1 - insert a space after each line number 

LISTO 2 - indent FOR..NEXT loops with two spaces 


LISTO 4 - indent REPEAT..UNTIL loops 


so, to insert a space after each line number and indent only FOR..NEXT loops, use 
1+#2, i.e. LISTO 3. Note, however, that the program will not actually be listed until 


you type LIST<return>. 


RECALL OF FUNCTION KEYS - David Moncur 


It is sometimes useful to recall the information associated with a function key 
and make it appear on the screen. This can be difficult if it is a long string that 
includes CLS. However it can be done neatly using AUTO: Choose a range of line 


numbers outside your current program, 


from 9086 onwards. Type AUTO 90680 


<return>. Pressing each function key followed by return causes the list to be 
displayed as program lines. Remember to delete them afterwards. 
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SANTA’S PARCELS 


A Game for Christmas by Alan Webster 


In this issue of ELBUG we have 
included tne first part of a two part 
article on how to write a games 
program. Here, we present the completed 
program for those who would like to 
play this game and see the whole 
program without waiting for next 
month's issue of the magazine. 

The game is quite simple to play. 
Parcels of different sizes, and placed 
on a sledge, race across the sky above 
three houses. By pressing the space 
bar, you must try to drop a parcel 
through the chimney of a house below. 
The parcels are of different sizes and 
won't necessarily fit all the chimneys. 
This is recognised in the scoring, as 
you get 18 points for dropping a parcel 
through the largest chimney, 25 points 
for the middle size chimney and 50 
points for the smallest chimney. 
Unfortunately, you also lose 5 points 
whenever a parcel misses or won't fit 
the chimney of the house you have 
chosen. The game continues until 290 
parcels have missed their target. 


The program has deliberately been 
kept short because of its role in 
illustrating the development of a 
computer game. Other features could 
easily be added and some of these will 
be described in the second part of that 
article in next month's issue of ELBUG. 


18 REM Program SANTA 
28 REM Version BG@.6 
38 REM Author Alan Webster 
40 REM BEEBUG December 1983 
58 REM Program Subject to copyright 
60: 
146 MODE2 
185 ON ERROR GOTO 560 
118 PROCsetup 
128 PROCfrontpage 
138 PROCchars 
148 PROChouses 
156: 
16@ REPEAT 
78 PROCplay 
188 UNTIL over’ 
198 PROCend 
206 END 
218: 
506 ON ERROR OFF:MODE 6 
510 IF ERR<>17 THEN REPORT: PRINT" at 
line ";ERL 
520 END 
530: 
1866 DEF PROCsetup 
1818 scoret=G:misst=@ 
1020 drop$=FALSE: over%=FALSE 
1038 AX$=19:AY%=RND (19) 
1048 parcel=RND(3) +225 
058 VDU23,1,9;0;0;9; 
1860 ENVELOPE 1,5,-19,5,20,19,5,20,126 
,0,8,-126,126,126 
898 ENDPROC 
1699: 
100 DEF PROC£rontpage 
11@ COLOUR 1 
1120 PRINT TAB(6,2)"SANTA'S" 
1130 PRINT TAB(6,6) "PARCELS" 
148 COLOUR 2 
156 PRINT TAB(3,206)"Press any key." 


198 ENDPROC 
199: 


206 DEF PROCchars 

210 VDU23,224,9,0,9,48,72,71,32,31 
226 VDU23,225,0,0,9,0,0,255,1,255 
1236 VDU23,226,248,136,136,136,248,09,0 
7 
vv 
1246 VDU23,227,6,240,144,144,240,9,8,0 
258 VDU23,228,06,9,224,166,224,0,0,0 
1298 ENDPROC 
1299: 
388 DEF PROChouses 

318 FOR colour%=1 TO 3 

1328 PROChouse (384*colour%-326,160,col 
our$,colour$%) 
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1338 NEXT colour’ 

1348 GCOLG,7:MOVE @,8:MOVE 9,186 

1358 PLOT85,1280,0:PLOT85,1286,103 
1366 PLOT85,9,@ 

1398 ENDPROC 

1399: 

1408 DEFPROCplay 

1418 PROCmove 

1420 IF INKEY-99 AND NOT drop% THEN dr 
Op$=TRUE: FX$=AX% : FYS=AY% 

1436 IF drop’ THEN PROCdrop ELSE FOR W 
=1T0O18:NEXT 

1448 PRINT TAB(10,@) ;score3;SPC(5) 
1498 ENDPROC 

1499: 

1586 DEF PROChouse (X%, Y%,Size%,colour’ 
) 

1513 GCOLG,colour% 

1526 MOVEX%, Y%: PLOT1,@,128 

1538 PLOT1,96,96:PLOT1,9,2@ 

1548 PLOT1,96-16*size%,@ 

155@ PLOT1,@,16*size$-116 

1568 MOVE X%+96,Y%3+224 

1576 PLOT1,96,-96:PLOT1,@,-128 

1588 ENDPROC 

1599: 

1668 DEF PROCmove 

1610 AX%=AX%-1 

1626 PRINT TAB(AX%,AY%) ;CHR$224;CHRS22 
5;CHRS32 

1630 IF NOT drop% THENPX$=AX%*64: PY$=1 
624-(AY%*32) : VDU5:GCOLG, parcel-225 :MOVE 
PX$+32, PY$-4: VDUparcel : VDU4 

1646 IF AX$=1 THEN AX%=19:PRINTTAB(1,A 
Y%) ;CHRS$32;CHR$32:AY%=RND (10) 

1698 ENDPROC 

1699: 

1768 DEF PROCdrop 


1710 FY$=FY$+1 

1728 COLOUR parcel-225 

1730 PRINTTAB(FX%,FY%) ;CHRSparcel 

174@ PRINTTAB (FX%,FY%-1) ;CHRS32 

1758 COLOUR 7 

1768 IF FY%$>19 THEN PROCtest:parcel=RN 
D(3) +225:drop$=FALSE: PRINTTAB (FX%,FY%) ; 
CHR$32 

1798 ENDPROC 

1799: 

1866 DEF PROCtest 

1818 ON parcel-225 GOTO 184@,1839,1820 
1820 IF FX%=15 score$=score$+5@: PROCno 
ise: ENDPROC 

1830 IF FX$=9 score%=score%$+25: PROCnoi 
se: ENDPROC 

18406 IF FX%=3 score%=score$+1@:PROCnoi 
se: ENDPROC 

1856 score$=score$-5:misst=miss$+1 

1869 IF score$<@ THEN score%=@ 

1870 IF miss$>2@ THEN over%=TRUE 

1898 ENDPROC 

1899: 

1996 DEF PROCnoise 

1916 A%=100+25* (FX$DIV6) 

1920 SOUND 1,1,A%,5 

1998 ENDPROC 

1999: 

2688 DEF PROCend 

2818 CLS:COLOUR 1 

2620 *FX15,1 

20638 PRINT TAB(3,4);"Game Over" 

2049 PRINT TAB(2,8);"Your Score:" 

2858 COLOUR 2 

2666 PRINT TAB(14,8) ;score% 

2678 VDU23,1,1;9;0; 9; 

2688 ENDPROC & 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


JOINING TWO OR MORE PROGRAMS 


If you have two programs you want to join, but you don't want to type either of 


them back in since they're both long, 


loading in the first program and typing: 
*SPOOL"name"<return> 


Then set the recorder to 'Record' and type 


LIST<return> 


then the easiest way to join them is by 


Make sure you have a tape ready and the computer will then list the program out to 
tape as a file called "name". When the listing is complete, do not switch off the 


cassette yet but type: 
*SPOOL<return) 


Rewind the tape to the start of the file. You should now load your second program, 
and renumber it if any of the line numbers are the same as the SPOOLed program. 


Finally, type: 
*EXEC"name"<return) 


and your previous program will be read in from cassette, to join the program already 
residing in memory. You should ignore the error messages resulting from this last 


command. 
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RESCUING A BAD PROGRAM 
by Colin Opie 


One of the most dreaded error messages that your Electron will produce is 'Bad 
Program’. Once that has been displayed you will find that you can no longer access 
your current Basic program. ELBUG comes to your rescue with a program that will 
restore your program to health with almost magical efficiency. It can also be used 
to recover programs that refuse to load correctly from cassette. 


The error message ‘Bad program’ is 
produced by Basic when it detects that 
the program in memory  has_ been 
corrupted, or has been loaded 
incorrectly. Once the message has been 
issued, the user cannot directly modify 
this program in any way. LIST does not 
work amd typing new lines has no 
effect. This can be disastrous if a 
small programming error results ina 
corrupted program for which you have no 
backup copy on tape. The RESCUE program 
presented here will search through a 
‘Bad Program' for the corrupted parts, 
and fix these in such a way that the 
program can once again be listed and 
edited. This may not completely restore 
the original program but it does allow 
you to gain access to the program so 
that damaged lines can be deleted or 
replaced. 


USING RESCUE TO RECOVER BAD PROGRAMS 

To use the RESCUE program, you must 
first type it in and save it on 
cassette (SAVE"RESCUE") . Te is 
reasonably short but must be typed in 
very accurately. Once it is safely on 
tape, you can use it to recover a 
program. 


When you get a 'Bad Program' message 
type the following: 


PAGE=&5B@0 <return> 
CHAIN"RESCUE" <return> 


Changing the value of PAGE ensures 
that the RESCUE program occupies a 
separate area of memory to the corrupt 
program. The RESCUE program will then 
attempt to patch back together the 
program currently resident in memory. 
When it finishes, you should be able to 
list and edit your repaired program as 
normal. 


1@ REM Program Rescue 

2@ REM Author Colin Opie 

36 REM Version E@.1 

49 REM ELBUG December 1983 

5@ REM Program subject to Copyright 


78 ON ERROR GOTO 330 
8@ PROCinit 

96 REPEAT 

188 PROCrecovec 

11@ UNTIL finished 
120 PAGE=P$ 

138 END 


15@ DEF PROCrecover 

166 ?line=&@D: lenpos=line+3: count=1 

176 IF ?line=&@D AND line?1=&FF THEN 
finished=TRUE: ENDPROC 

186 PRINT (lLine?1)*256+(line?2) ; 

19@ REPEAT 

208 IF line?count<>&@D THEN count=cou 
nt+] 

210 IF line?count<>&@D AND line?count 
<32 AND count>4 THEN line?count=35 

228 IF count>25@ THEN line? (count+])= 


230 UNTIL line?count=&@D 

248 PRINT ~line 

258 line=line+count: ?lenpos=count 
260 ENDPROC 


280 DEF PROCinit 

294 PS=&EGS 

306 line=P%: line?1=@: finished=FALSE 
318 ENDPROC 


336 ON ERROR OFF 

349 MODE 6:IF ERR=17 END 

350 REPORT: PRINT" at line ";ERL 
360 END 


This program was adapted from a 
version for the BBC micro first 
published in BEEBUG Vol.1 No.8. 


» 
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Explaining PAGE 


Part of your computer's memory is 
reserved for its own use. The point 
where your own program starts is always 
stored for reference in a_ special 
variable called PAGE. M the Electron, 
this is normally set to &E@@ (3584 in 
decimal), when you first switch the 
computer on. To check, type PRINT PAGE 
<return>. PAGE can be set to other 
values for special purposes, usually so 
that a program can be located in a 
different part of memory. It is 
possible, in this way, to have more 
than one program in memory at the same 
time. This happens when the RESCUE 
program and your program are in memory 
together. 


Your first action on recovering a 
corrupt program should be to save it 
(as it is) on tape with SAVE"name", as 
this will safeguard against any further 
corruption of the program. Having saved 
the program, you should list it out and 
examine the lines of code. Some lines 
may contain rubbish, whilst others may 
have disappeared completely. Re-type or 
replace lines as needed. 


Something to look out for are '#' 
characters appearing in the program 
after initial recovery. The rescue 
operation replaces any control 
characters in the program with the hash 
character (#), so that they can be 
easily recognised. Control characters 
cannot be allowed to remain, as they 
are likely to cause problems when LIST 
is attempted, and they should not be 
there anyway. 


RECOVERING CASSETTE PROGRAMS 

Sometimes, you will find Le 
impossible to load correctly, a progran 
from cassette and you will be plagued 
with a variety of error messages often 
followed by the words, "Rewind Tape". 
Trying to reload, will sometimes work 
but not always. Here we describe how 
the RESCUE program can once again, 


Before attempting to reload the 
offending program from cassette, type 
the following line into your Electron: 

*OPT2,0 <return> 
Now proceed to load the bad program 
from cassette as before. This time, 
although error messages may still 
appear, the program will continue to be 
loaded into the computer, including any 
corrupted sections. Once the corrupt 
program is in memory, you can follow 
the steps already described, using the 
RESCUE program, to restore as much of 
your program as possible. You should 
also, at this stage, restore cassette 
loading to its normal state by typing: 

*OPT <return> 


Of course, this process. will 
generally work only with your own 
programs, as you will need to know how 
to make corrections yourself, once 
RESCUE has done its job. It will not 
generally help with programs that you 
have bought or obtained elsewhere, 
especially if the Bad Program message 
arises as a result of copy protection 
put on the software by the 
manufacturer. 


SOME FINAL HINTS 

Normally, only a small part of any 
program is corrupted, and using RESCUE 
will completely restore the original 
program. Occasionally, even after using 
RESCUE, the recovered program will 
still contain a number of introduced 
errors, mostly in the form of 
unexpected or changed characters. The 
RESCUE program cannot help you with 
these faults, so you must find and 
repair them yourself - without the 
RESCUE program, even this would not be 
possible. 


To avoid problems of this kind, you 
should save your programs frequently 
onto cassette. Saving two copies will 
also help to avoid loading problems 
later. Moving back to a previous 
version is usually much easier than 
recovering a damaged program and should 
be quicker overall. 


avert potential disaster. @ 


HOO ON 
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FOOTBALL KRAZY 


by Alan Dickinson 


We present here, for your entertainment, the best game of football in town! In 
each game you get 98 seconds of fast moving, high scoring action, where you pit your 
wits against the computer's. 


This short program, although written in Basic, gives a smooth, fast 
game of football, due to the use of good structuring techniques. This 
also allows you to modify easily the program, and change, for 
example, the playing time and the names of the teams. 


In the game presented here, you are designated as the 'United' 
team with chequered shirts, playing against the computer, which 
controls the 'City' team in the striped shirts. 


When the program runs, it initially asks you to enter the position 
in which you want your man to play (the goalie always stays on the 
bottom row). If you enter a value outside of the range asked for, then 
your man will be assigned to position 7. Position 26 is in the row 
next to your goalie, and 7 is in the row next to the computer's 7 
goalie. You are then asked for a value for the comouter's y 
defence tactic; this governs how the computer will respond in 
the game. The greater the number entered, the harder the game played. 
Try, for example, entering 26 in response to the position request, and 108 to the 
defence tactic. In this arrangement, you will find it virtually impossible to beat 
the computer as it will dribble, tackle, pass and score with unnerving accuracy, and 
run rings around your players. (Nobody in the office won, or even scored in this 
mode! ) 


TO move your players, use the 'Z' key to go to the left, 'X' to move right while 
at any time, pressing '/' will allow an oncoming ball to pass through your player. A 
word of warning though, when a goal is scored, the computer moves its men back to 
the centre of the pitch, but leaves your men where they were when the goal was 
scored. You should, therefore, move your men back quickly, or the computer will 
instantly score another goal! 


If you do wish to change the playing time, alter the value of Z% in line 400, and 
if you'd prefer different team names, then they should be changed in lines 619, 620, 
1049, 1058, 1186 and 1199. (Don't forget to alter the relevant TAB values to take 
into account any change in length of the names you use.) 


19 REM Program: KRAZY 
20 REM Version: v4 
UNITED © 38 REM Author A.DICKINSON 

48 REM ELBUG December 1983 

58 REM Program subject to Copyright 

68 : 

76 ON ERROR IF ERR<>17 THEN ON ERROR 
OFF :MODE 6:REPORT: PRINT" at line ";ERL 
: END 

88 MODE 4 

98 VDU23,1,0;0;0;0;90 

108 REPEAT 

118 PROCinit 

120 PROCtitle 

138 PROCstart 

149 PROCtune 

150 PROCplay » 
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168 PROCfinalscore 

176 REPEAT 

188 AS=GETS 

198 UNTIL AS="Y" OR AS="N" 

268 UNTIL AS="N" 

218 *FX15,1 

226 MODE 6 A, 

230 END ae 

24 : 

256 DEF PROCinit 

268 VDU19,1,6,9,0,0 

276 VDU23,224,0,0,0,24,24,8,8,G 

288 VDU23,225,6,24,60,60,24,126,173,1 
81 

298 VDU23,226,173,181,68, 36, 36, 36, 36, 
162 

308 VDU23,227,6,24,60,60,24,126,129,1 
89 

318 VDU23,228,129,189,66, 36, 36, 36, 36, 
162 


328 VDU23,229,0,6,0,0,8,0,0,255 

338 VDU23,236,255,6,6,9,9,6,8,0 

348 VDU23,231,1,1,1,1,1,1,1,1 

358 VDU23,232,128,128,128,128,128,128 


7 128,128 

360 VDU23,233,255,1,1,1,1,1,1,1 

378 VDU23,234,255,128,128,128,128,128 
, 128,128 

388 VDU23,235,1,1,1,1,1,1,1,255 

398 VDU23,236,128,128,128,128,128,128 
7 128,255 

400 Z%=9000:REM GAME LENGTH 

418 BS=CHR$17+CHRS$7+CHR$224 

420 PS=CHR$32+CHRS$226+CHR$32+CHR$11+C 
HR$8+CHRS$8+CHR$8+CHR$32+CHR$225+CHR$ 32 

438 QS=CHR$32+CHR$228+CHR$32+CHRS$114+C 
HR$8+CHR$8+CHRS$8 +CHR$32+CHR$227+CHRS$32 

449 ENDPROC 


469 DEF PROCtitle 

470 CLS: PRINTTAB(7,2)"FOOTBALL KRAZY" 
486 PRINTTAB(2,26)"Z 
490 PRINTTAB (2,28) "X 
566 PRINTTAB(2,38)"/ = THROUGH-BALL"; 
518 PRINTTAB(4,4)"Attack position 26- 


uouou 
a 
i= 
s 


520 INPUT A% 

5308 IF A&<7 OR A%>26 AS=13 

540 PRINTTAB(4,6)"Defence tactic "; 
556 INPUT TS 

568 ENDPROC 


586 DEF PROCstart 

598 SS=STRINGS (3,CHR$32) 

688 CLS: SP%=9:SQ8=9 

618 PRINTTAB(1,1)"UNITED 8"; 

62@ PRINTTAB (28,1) "CITY QO"; 

638 PRINTTAB (1,3) STRINGS (38,CHRS$229) ; 


648 PRINTTAB (1,38) STRINGS (38,CHR$239) ; 


658 PRINTTAB(14,3)SPC11 
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668 PRINTTAB(14,38)SPC11 

678 PRINTTAB (13,3) CHR$235;TAB(25,3)CH 
R$236; TAB (13,30) CHR$233;TAB (25,30) CHRS2 
34 

686 FOR Y%=4 TO 29 

698 PRINTTAB(@,Y%)CHRS$231 

706 PRINTTAB (39, Y%)CHRS232 

716 NEXT 

720 P%=18 

738 PRINTTAB (P%,A%) PS; TAB(P%, 28) PS; 

748 Q3=18:B%=18+RND(4) 

758 PRINTTAB (Q%,5) QS; TAB (Q$,B%) QS; 

768 ENDPROC 

778 : 

786 DEF PROCtune 

798 RESTORE 

880 REPEAT 

818 READ V3,D%:SOUND 1,-15*V%,72,D% 


860 DATA 1,2,0,1,1,4,0,8 
870 ENDPROC 
889 : 
898 DEF PROCplay 
908 TIME=6 
918 REPEAT 
928 X$=20:D$=1-RND(2) :Y$=16 
938 IF RND(18)>5 E%=1 ELSE E$=-1 
949 PRINTTAB (Q%,5)SS$;TAB(Q%,B%) SS; TAB 
oe gael TAB (Q%,B%-1) S$; 
@ Q&=18: PRINTTAB (X%3,Y%) BS; 
968 PROCutd: PROCcity 
976 REPEAT 
986 PRINTTAB(19,1);TIME DIV 100; 
998 PROCutd: PROCcity: PROCbal1 
1988 UNTIL Y%3<2 OR Y3>3@ OR TIME>Z%+99 
1616 IF Y$<2 SPS=SP3+1 
1620 IF Y%>30 SQ%=SQ%+1 
1030 PRINTTAB(X%,Y3)" "7 
1046 PRINTTAB(1,1)"UNITED ";SP% 
1050 PRINTTAB(28,1) "CITY "3SQ%; 
1068 FOR I3=8 TO 100 STEP 7 
1078 IF Y$<2 SOUND 1,-15,1%,2 ELSE SOU 
ND 1,-15,116-I%,2 
1888 NEXT 
1698 UNTIL TIME>Z%+99 
1108 ENDPROC 


1126 DEF PROCfinalscore 

1139 PRINTTAB(15,16)" FULL TIME "; 

1148 PROCtune 

1158 REPEAT UNTIL TIME>Z3+500 

1168 CLS 

1176 PRINTTAB(2,4)"Result:" 

1189 PRINTTAB (4,6) "United ";SP%; 

1198 PRINTTAB(4,8)"City ";SQ3%; 

1208 IF SP%>SQ% PRINTTAB(4,11) "UNITED 
WIN THE MATCH"; 
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1216 IF SP3=SQ% PRINTTAB(4,11)"IT'S A 
DRAW ! ! !"; 


1226 IF SP$<SQ% PRINTTAB(4,11)"CITY WI 
N THE MATCH !!1"; 

12306 PRINTTAB(2,14)"Again ?"; 

1248 *FX15,1 

1258 ENDPROC 

1268 : 

127@ DEF PROCutd 

1288 IF INKEY(-98) AND P%>] P%=P%-1:PR 


INTTAB (P$,A%) P$;SPC1; TAB (P%, 28) P$;SPC1; 
: ENDPROC 

1290 IF INKEY(-67) AND P%<36 PRINTTAB( 
P$,A%) SPC] ;P$; TAB (P$, 28) SPC] ; PS; : PS=P3+ 
1: ENDPROC 

1360 PRINTTAB (P$,A%) PS; TAB (PS, 28) PS; 
1316 ENDPROC 

1320 : 

1330 DEF PROCcity 

1340 IF X$<Q$+1 AND Q%>3 AND Y8<13+TS 
Q$=0$-1: PRINTTAB (0%, 5) Q$;SPC1; TAB (Q%,B3 
)Q$;SPC1; : ENDPROC 

1358 IF X$>Q%$+1 AND Q%<34 AND Y%<13+T% 
PRINTTAB (Q%,5) SPC1;Q$; TAB (Q%,B%) SPC1;Q 
$; :Q3=Q%+1 : ENDPROC 

1360 PRINTTAB (Q3,5) QS; TAB (Q%,B%) QS; 
1378 ENDPROC 

1386 : 

1390 DEF PROCball 

1400 NS=X%+D% 

1410 M=Y3+E% 


35 


1426 IF N&<1 OR N3>38 N%=X%:D%=-D$: SOU 
ND 1,-15,180,1 

1430 IF M3=30 OR M3=3 IF N%<14 OR NB>2 
3 M$=Y$:E%=-E%:SOUND 1,-15,12G6,1 

1440 IF M3=5 OR M&=B% PROCQman 

1456 IF M3=A% OR M3=28 PROCPman 

1466 PRINTTAB (X%, Y%) SPC1;TAB(N%,M%) BS; 
1476 X3=N3:Y3=M3 

1489 ENDPROC 

1496 : 

1586 
1518 
1526 
1538 
1546 
1558 
1566 
1578 
1586 
1598 
1680 
1616 
1626 
1636 
1646 
1658 
1660 
1676 
1686 
1690 


DEF PROCPman 
IF N&<P% OR N$>P%+2 ENDPROC 
SOUND 1,-15,60,1 

IF INKEY(-67) D$=-1 

IF INKEY(-98) D$=1 

IF NOT INKEY(-105) E3=-E% iy 
ENDPROC “a 


DEF PROCQman 
IF N$<Q% OR N&>Q%$+2 ENDPROC 
SOUND 1,-15,52,1 

IF RND(19+T%)>3 E%=1 ELSE E%=-E% 
D$= 

R3=RND (16) 

IF R&>7 D%=-1 

IF R&<4 DS=1 

IF T3<3 OR R&<4 ENDPROC 
IF X%>25 D%=-1 

IF X%<15 D%=1 

ENDPROC 
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Snake is a very addictive, fast 
moving arcade game. The purpose of the 
game is to direct the snake around the 
screen, eating up the randomly placed 
objects. With every bite that it takes, 
the tail grows longer and the snake 
moves faster. Just to complicate 
things, there are also certain 
scattered obstacles which must be 
avoided. 


To even complete the first screen 
requires skill and _ concentration. 
Further frames use different shaped 
playing areas, which as well as adding 
variety, require much greater skill to 
complete. 


Sake 


This game is much more exciting than 
many games of a similar nature, am 
once played, proves to be surprisingly 
compulsive. 


Snake costs £4.00 inc VAT. Please add 5¥p post & packing. 
Overseas orders: £5.56 inc post & packing - VAT not charged. 


Send order with membership number to: 
BEEBUGSOFT, P.O. Box 1989, High Wycombe, Bucks HP11 2TD. 
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IF YOU WRITE TO US 


BACK ISSUES (Members only) 


All back issues will be kept in print 
(from Novenber 1983). Send 9@p_ per 
issue PLUS an AS SAE to_ the 
subscriptions address. Back copies of 
BEEBUG are available to ORBIT members 
at this same price. This offer is for 
members only, so it is ESSENTIAL to 
quote your membership number with your 
order. Please note that the advertising 


SUBSCRIPTIONS 


Send all applications for membership, 
and subscription queries to the 
subscriptions address. 


MEMBERSHIP COSTS: 
£5.98 for 6 months (5 issues) 
£9.98 for 1 year (1@ issues) 
European Membership £16 for 1 year. 
Elsewhere (Postal zones) 


supplements are not supplied with back Zone A £19, Zone B £21, Zone C £23 


issues. 


SOFTWARE _ (Members only) 


Subscription and Software Address 
ELBUG 
PO BOX 109 
High Wycombe 
Bucks 
HP11 2TD 


Tnis is available from the software 
address. 


IDEAS, HINTS & TIPS, PROGRAMS 
AND LONGER ARTICLES 


Substantial articles are particularly 
welcome and we will pay around £25 per 
page for these, but in this case please 


Editorial Address 


give us warning of anything that you ELBUG 
intend to write. PO Box 50 
St Albans 

We will also pay £10 for the best Herts 
AL] 2AR 


Hint or Tip that we publish, and £5 to 
the next best. Please sem all 
editorial material to the editorial 
address opposite. If you require a 
reply it is essential to quote your 
membership number and enclose an SAE. 


ELBUG MAGAZINE is produced by BEEBUG Publications Ltd. 

Editor: Mike Williams. Technical Editor: Philip Le Grand. 

Production Editor: Phyllida Vanstone. Technical Assistant: Alan Webster. 
Managing Editor: Lee Calcraft. 

Thanks are due to David Graham, Sheridan Williams, 
Rapier for assistance with this issue. 


Adrian Calcraft and Matthew 
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